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ABSTRACT 



The TC59 Random Exerciser Test is a test program designed 
to simulate tape system usage. Any configuration of 

1 to 8 TU20 (or similar) seven and/or nine track drives 
may be concurrently tested. 

2. REQUIREMENTS 

2.1 EQUIPMENT 

PDP-9 

TC59 Magnetic Tape Control 

1 to 8 TU20 - 7 or 9 track 

or similar Magnetic Tape Transports 

2.3 Preliminary Programs 

The TC59 Control Test and Drive Function Timer 
programs should run in their entirety before 
attempting to run the TC59 Random Exerciser. 

3. LOADING PROCEDURE 

Place the ABS Binary Tape for the TC59 Random Exerciser 

Executive Routine in the Reader (MAINDEC-9A-D4FA-B) 

Set ADDRESS to 17720 

Press I/O RESET 

Press READ IN 

Place the ABS Binary Tape for the TC59 Random Exerciser 

in the Paper Tape Reader (MAINDEC 9A-D4GA-B) 
Press I/O RESET 
Press READ IN 
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4. STARTING PROCEDURE 

4.1 Control Switch Settings 

(NONE) . 

4.2 Starting Address 

The TC59 Random Exerciser 

Executive Routine starts at Address 00200. 

4.3 Program and/or operator action 

Set ADDRESS to 00200 
Press I/O RESET 
Press START 

Load system parameters via TTY 

KBD per paragraph 4.3.1 of MAINDEC-9A-DtfFA 

After system parameters have been entered, the 
following message will be typed: 

SELECT DRIVES 
DRV TRK 

4,3.1 Drive Selection Procedure 

Any configuration of 1 to 8 7 and/or 9 track drives 
may be selected to be run. 

After the "SELECT DRIVES" typeout , the program will 
wait for keyboard input. Any key to 7 may be typed. 
(Any other key, except carriage return, will cause a 
question mark (?) to be typed and that key will be 
ignored.) 

After a valid drive number has been typed, the program 
will space 3 places on the TTY and wait for a TRACK 
parameter. At this point, type in a "7" if the drive is 
seven track drive, or, a "9" if the drive is a nine 
track drive. (Any other key is invalid, will cause a 
question mark to be typed, and the program will return 
to waiting for a drive selection. The drive number will 
be ignored . ) . 

Typing in the same drive number twice, will cause the 
typeout. "DELETED" and that drive selection will be 
removed drom the parameter table. 



4.3.1 (Continued) 

After all drives have been selected, type in a 
CARRIAGE RETURN instead of a drive number to 
end parameter selection. 

4.3.2 Drive Selection Examples 

SELECT DRIVES 

DRV TRK 

2 

(a carriage return was typed with no drives selected) 



SELECT 


DRIVES 


DRV 


TRK 


1 


7 


1 


DELETED 


1 


9 



(Drive 1 was selected as a 7-track drive, deleted, 
and then re-selected as a 9-track drive) 



SELECT 


DRIVES 


DRV 


TRK 


1 


9 





7 


A? 




7 


6? 


7 


7 



(Drive 1 was selected as a 9-track drive. 
Drive was selected as a 7-track drive. 
The first drive 7 was ignored "6" is an 
invalid key for track selection. 
Drive 7 was selected as a 7-track drive. 
The "A" was ignored, only to 7 are valid 
for drive numbers.) 
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5. OPERATING PROCEDURE 

5.1 Operation Switch Settings 

Normally, the program will randomly select parity and 
density. A specific parity and density selection 
may be fixed by utilizing switches 6, 7 and 8 as 
follows : 



SWS 
6,7,8 


1 
2 
3 
4 
5 
6 
7 



SELECT 






RANDOM 






200 


BPI 


EVEN 


PARITY 


556 


BPI 


FVEN 


PARITY 


800 


BPI 


EVEN 


PARITY 


2 00 


BPI 


EVEN 


PARITY 


200 


BPI 


ODD 


PARITY 


556 


BPI 


ODD 


PARITY 


800 


BPI 


ODD 


PARITY 



6 . ERRORS 

All errors detected by the TC59 Random Exerciser result 
in an error typeout. An occasional write status error 
may be expected and can probably be ignored when 
analyzing tape operation. 

6.1 Error Typeout Header 

Most error typeouts will be headed by the following: 

DRIVE X 

COMD STATUS FILE RECORD 
XXXXOO YYYYOO AAAAAA OOOOBB 

By examining the number "COMD" parity, density and 
tape function can be determined. (i.e.', 744600 
indicates Drive7, odd parity, wirte at 888 BPI , 
interrupts enabled.) 

STATUS should indicate the type of error. (i.e., 
420100 indicates a parity error.) 

FILE and RECORD are typed to indicate relative tape 
position. (See paragraphs 9.2, 9.3 for descriptions 
of the file structure used by this program. ) 

6.2 Catastrophic Drive Errors 

Certain types of errors encountered by the program 
are considered catastrophic failures since there is 
no one programming procedure that would allow 
recovery. The COMD STATUS typeout is generated and 
then followed by a statement of the type of error. 
These statements include: 

BAD TAPE 

NO EOF EXPECTED 

EOF EXPECTED 

BOT SHOULD = 1 

Bad tape is included as a catstrophic failure. Since 
tape may or may not actually be stopped within an 
interrecord gap, there is no single program procedure to allow 
recovery from a BAD. TAPE status. 



The EOF errors indicate that control of tape position 
has been lost. Since the program can no longer 
determine where tape is positioned, the only recovery 
procedure that, can be guaranteed is to rewind the load 
point . 



The TC59 Random Exerciser attempts to detect and recover 
from system or control unit failures by restarting all 
drives from EOT. The following errors are considred 
system errors : 

UNEXPECTED MAG TAPE INTERRUPT 

An interrupt was received from the tape system when 
none was expected. This typeout is followed by 
a typeout of the last operation completed: 

TAPE CONTROL HUNG 

The tape control (TC59)became ready while the program 
was waiting for an interrupt from Magtape. This typeout 
is then followed by a typeout of the last tape operation 
initiated : 

MTLC FAILED 

The command register in the TC59 failed tc load properly. 
COMD typed is the data read from the TC5 9 and STATUS 
indicates the command loaded: 

DEVICE TEST HUNG 

This typeout is generated by the executive routine and 
indicates that the TC59 Random Exerciser has not received an 
interrupt for at least one minute. 



6.4 Data Errors 

Data errors detected by the TC59 Random Exerciser will be 
typed as thev occur. Only the first four data errors in 
each record will be typed. 

If a combined status and data error occurs, two typeouts 

will be generated, but the error should only be counted 

as a single error. The COMD STATUS FILE and RECORD type- 
out . 

A read status error may not be followed by a data error 
typeout, since the parity track or LPCC could fail by 
themselves. However, data errors should always be 
preceded by a status-error typeout. A data error not 
preceded by a status error, would indicate a SYSTEM 
FAILURE of some sort. (i.e., Parity Error detection failed) 

DATA ERROR EXAMPLE 

DRIVE 7 



COMD 

742600 

DATA 

DATA 

764532 

764432 



STATUS 

420100 

ERROR 

ADRS 

034076 

016076 



FILE 
000003 



RECORD 
000031 



770156 
770056 



3410 3 
016103 



Data errors are typed in pairs of words. The first word 

of each pair indicates the data word that should have been 

read. The second data word typed in each pair indicates 
the actual word read from tape. 



Address typeouts are included to indicate the buffer areas 
being utilized. If extended memory is available, (as 
indicated by the ADDRS 034076) it would 
the data to be written - c -™- - — - i--~i- 



be possible for 
from one bank, read into another 
bank and then the pattern regenerated into a third bank 

■F 



for compare purpo 



s e s 



6.5 ERROR RECOVERY PROCEDURES 



6.5.1 Write Error Recovery 



For write status errors, the recovery procedure utilized 
is to backspace and write with extended inter-record gap. 
The program will attempt to rewrite with extended gap a 
total of four times. If the error still occurs on the 
fourth write with extended gap, the drive selected will be 
rewound to load point and restarted. Each write status 
error is typed as it occurs. 

6.5.2 Read Error Recovery 

For read status errors, the recovery procedure utilized is 
to backspace and reread. The program will attempt to 
reread the record twice, and assuming a combined status and 
data error a total of six error typeouts could occur. 
If the error still occurs after the second reread, the pro- 
gram considers the error non-recoverable, rewinds the drive 
to load point and restarts selections. 

If the record is successfully read in either of the two 
rereads, the drive is still rewound to eliminate the 
possibility of reading the same error record later by random 
selection. 
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9. DESCRIPTION 

The TC59 Random Exerciser Program operates the tape 
system in a random fashion designed to simulate 
system usage. Drive, pattern, parity density, record 
and file length and sequence of operations are all 
generated by random selection. 

9.1 Drive Control Tables 

A table of 16 locations are utilized for each drive 
to keep track of tape position, pattern and other 
selections. The mnemonic for each location and 
its purpose are as follows : 



MNEMONIC 



USAGE 



DRACTV 



If equal to 0, the particular 
drive is inactive and open to 
random selection of operation. 
If not 0, this location will 
indicate the starting address 
of the test routine that 
controls the operation currently 
selected for that drive. 



FILPOS 



This location contains the file 
number that the tape is 
positioned at. 



RECPOS 



This location contains the 
tape's record position within 
the current file. 



FILWRT 



This location contains the 
number of files currently 
recorded on a particular drive. 



RECLEN 



This location contains the 
current record length. 



FILETH 



This location contains 

the number of records within 

the files being operated on. 



FRSFIL 



This location contains the 
number of the first file on 
tape with the current pattern, 
record length, parity, density 
a n d file 1 e n g t h , 
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MNEMONIC 



USAGE 



PARDEN 



This location contains the 
current parity and density 
selection. Or, in the case 
of 9-track drives, whether or 
not the mode is CORE DUMP. 



FILER 



This location is utilized only 
by the write routine and 
initially indicates the number 
of times to repeat a specific 
file selection. 



PATTBL 



This and the next 6 locations 
contain the seven words used 
to generate the current data 
pattern. 



9„2 File Structure 



The TC59 Random Exerciser operates a "FILE STRUCTURED" 
tape. Each file generated consists of a series of 6 
to 63 identical records and a single END of FILE mark. 
The number of records within a file is randomly 
selected . 

Once the structure of the file has been selected, the 
program randomly selects a number of times to repeat the 
file. The same file may appear just once on tape or be 
repeated as many as two to seven times in a row. 

Each file has its own position number. The first file on 
tape (from load point to the first EOF) is FILE 0. The 
second file on tape (from the first EOF to the second EOF) 
is FILE 1, the third file is FILE 2, etc. 

9.3 Record Structure 

All records within each file are identical in length 
and pattern. Record length is randomly selected and 
may be as short as nine PDP-9 words or as long as 
1023 words. 

The pattern within the record is generated from seven 
random words. These seven words are repeated for the 
length of the record. 
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Each record within a file has a unique number. The 
first record in each file is RECORD 0, the second is 
RECORD 1, etc. When combined with the file number, 
the record number indicates the relative tape position. 

File record position would indicate that tape is 
positioned either at BOT or between BOT and the first 
record on tape. File 1, record position 3 would 
indicate that tape is positioned after the first file 
mark on tape and between the third and fourth records 
in the file. 

If the third file on tape is 17 records long, file 2 
record position 17 would indicate tape to be positioned 
between the last record of the file and the END OF FILE 
mark on tape. 

9.4 Write Sequence Selection 

Write is a valid random selection only when tape is 
positioned at BOT with no records written, or when 
at a record position and FILPOS is equal to LASFIL. 
(This indicates that tape is positioned past the last 
EOF written on tape.) 

If FILER does not equal 0, the program leaves the 
pattern, parity density and file structure selections 
as is and randomly selects to either write the file 
NONSTOP or START/STOP. If the write mode selected is 
NONSTOP, the entire file, including the END or FILE 
is written in that mode without allowing drive selection 
to change. If the write mode selected is START/STOP, 
the program will write one record on the selected 
transport and then release the test so that another drive 
may be selected. Every time that the drive is selected, 
until the file has been completed, one record will be 
written START/STOP. After all records in the file have been 
written, the END OF FILE mark will be written START/STOP. 

After the END OF FILE is written, DRACTV is cleared to 
and the next operation selected for that drive may 
be either BACK SPACE or WRITE. 

If WRITE is a valid selection and FILER does equal 0, 
the program proceeds to randomly select a new pattern, 
parity, density and file structure. 
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The first selection made is parity and density. This 
selection is either made by AC switches 6, 7 and 8, 
(see paragraph 5.1) or by random selection. Or, if 
the drive is a nine-track transport, the selection 
made is to either use core dump mode or the compatable 
nine-track mode. This program always operates 
nine-track drives at ODD Parity. 

The next selection made is pattern. Seven words are 
generated and saved in the drive PATTBL. If the 
parity selected was EVEN, all words with "00" codes 
are discarded. 

If the drive is nine-track, and the mode selected was 
the compatable mode, only the lower 16-bits of the 
words are saved as random data. The correct odd parity 
bits for each character are placed in bits and 1. 

After pattern selection, the program selects the number 
of records for the file. Six to sixty three records 
may be selected for the file length. 

Once file length is selected, the program selects record 
length. Record length selection may be as short as nine 
PDP-9 words or as long as 1023 PDP-9 words. 

When record length has been selected, the program selects a 
number of times to repeat the file. The same file may 
be repeated as many as seven times. 

The program then returns to the point where it selects 
write mode and continues to either writing the first 
file NONSTOP or START/STOP. 

9.5 Backspace Sequence Selection 

Backspace is a valid random selection except when tape 
is at record position of the first file containing 
the current file structure. 

Backspace may be either performed START/STOP or NONSTOP. 
If the selection is START/STOP, tape will be backspaced" 
one record at a time until either backspace is no longer 
valid, or until a second random selection indicates 
backspacing should cease. if the backspace selection is 



-13- 



NONSTOP, tape will bebackspaced to record position 
of the current file utilizing the word count to 
specify the number of records. The backspace 
nonstop selection remains then, until either backspace 
is no longer valid, or it is ceased by a separate 
random selection. 

9.6 Read Sequence Selection 

Read is a valid random selection anytime that Write is 
not a valid selection. 

The Read operation may be selected to be operated 
either START/STOP or NONSTOP. 

With the Read mode selected START/STOP, one of the 
following operations is initiated: 

A. One record is read START/STOP and the 
data read compared against data written. 

B. One record is Read Compared START/STOP. 

C. A space reverse 1 record is executed, changed 
to Read going NONSTOP, one record is read 
and the data read compared against the data 
written. 

D. One record is read, the function changed to 
space reverse and the same record is back- 
spaced over NONSTOP. The data read is then 
compared against the data written. 

The read START/STOP mode remains selected 
until either an END OF FILE is read, or 
until it is deleted by random selection. 

With the read mode selected NONSTOP, one of the following 
operations is initiated. 

A. The program initiates a read operation and then 
continues reading NONSTOP until either an EOF 
is encountered, or the next record will cause 
the read buffer to overflow. The data read 

is then compared against what should have been 
written. 

B. A Read Compare function is initiated, and then 
continued NONSTOP until an EOF is encountered. 
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Read NONSTOP remains selected until either an 
EOF is encountered during the read operation, 
or tape is positioned valid for write during 
the Read Compare. 
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"UGRFX 



PACE 



TITLE MAC'E." 



70715? 
7Pi7.il? 
707341 
707321 
707301 
7 7 3 ? 6 
707304 
7073?? 
707324 

00003? 
000033 

014000 
016000 

00001? 
01 3400 
013777 
00004 I 5 



S 

E*F !i CISFR TAPE 1 

FIH^T TAPF hf FXE P CISFH 

INSTRUCT IONS 



. AC 
/Tr5f> Ra^UM 
/ASSFMPLF iS 
/MAGTAPE 1 OT 
>-'TPS = 7'?735? 
VTRC=70/31? 
MTSF' = 70 7341 
MTCR=707321 
MTTR=707301 
MTLC=7073?6 
MT 00=707 3 04 
MTAF=70732? 
LCM=7073?4 

/CA AND WC DEFINITIONS 
WCLOC=32 
CALOC=WCL0C+l 
/BUFFER ARFA DEFINITIONS 

WR?UFR;14000 

RoBUFR=WPBUFR+?000 

/DRIVE CONTHOL TABLE DEFINITIONS 

TAPLFK=1? 

nRTAPL=13400 

FAKECA = *IR8UFR-1 

APIAnRr45 

/ 

.EJECT 



",V"Hrx 



p A r. t. 







/[jf flNM !(JMS FOR tXf f "UTl' 




1 :' 


T rt'Trxr l-- v i 




HP 01 31 


TYPC"'M = 1 "1 




i'.P0l 0? 


T Yf)CT2= 1 "2 




01 7 


TYr>CTl = l 03 




;•) 1. 4 


TY ASCI -\"4 




00010^ 


TDFCIM = lf'5 




0001 0A 


ivKYH1 = 10A 




0001 07 


P ANNUM =10 7 




0110 


rYrLFK = n 




0001 11 


upno»E. = m 




011? 


A P ! E "■! A = 1 1 2 




000113 


I!EVTFS = 11 3 




0001 1") 


0EVFLG=i1 4 




5)001 15 


r,ET0FV = 115 




000126 


TTYFLG=1?6 




000130 


TTYQ!S=130 




000131 


K8PD!S=131 




00013? 


LSTKFY=132 




0001 33 


HEVINT=133 




00014? 


IINKNWN = 142 




000143 


HEVSTR=143 




005000 


!•< T E X r R = 5 

/TO STORr AOORFSSES INTO 


00113 




.LOC OFVTES 


00113 


005000 


MTFXER 


00114 


00733? 


MTACTV 


00115 


005544 


G P A R A M 


00143 




. LOG DFVSTR 


00143 


005044 


SDFXIT 


00144 


000000 


DEVHWG 
/ 



EXEC AT LOAD TIME 



.EJECT 



•1 A 'I R F X PAGE 3 
0=000 



,L n C 
/ICb'l RANDOM E 
/TEST ACTIVE A 
/AMD TEST 1NAC 
/HT A cTV = t.AW-1 



= 000 


405C00 


* TARFX 


XC T . 


C 001 


20733? 




LAC MTACTV 


= 002 


740001 




CMA 


0=>003 


741201 




SNA ! C M A 


= 004 


605011 




JMP TESHNG 


= 005 


741200 




SNA 


0=.006 


605051 




JMP TSXTRA 


= 007 


140144 




DZM OEVHNG 


= 010 


627332 




JMP» MTACTV 


R 0ll 


70000? 


TESHNG 


IOF 


05012 


220126 




1_AC* ttyflg 


= 013 


700047 




ION 


05014 


707321 




MTCR 


05015 


625000 




JMP» MTAREX 


0^016 


7*0?00 




SZA 


05017 


625000 




JMP* MTAREX 


= 020 


207375 




LAG HNGCTR 


= 021 


740700 




SZA 


050?2 


605025 




JMP .+3 


05073 


777760 




LAW -20 


05074 


047375 




DAC HNGCTR 


05075 


447375 




IS? HNGCTR 


05026 


625000 




JMP* MTAREX 


= 027 


207750 




LAC (MTACTV+1 


05030 


047364 




DAC MTAPRO 


05031 


777777 




LAW -1 


05032 


060126 




DAC* TTYFLG 


05033 


047332 




DAC MTACTV 


05034 


206053 




LAC HNGTFX 


05035 


120100 


HNGTYP 


JMS* TYPTEX 


05036 


625000 




JMP* MTAREX 


05037 


205042 




LAC .+3 


05040 


047337 




OAC MTACTV 


0*041 


620130 




JMP* TTYDIS 


= 042 


005043 




. +1 


0=5043 


107400 




JMS TYPDRV 


= 044 


207751 


SDEXIT 


LAC (RFWALL 


H=.045 


04733? 




DAC MTACTV 


.55046 


1601 26 




DZM* TTYFLG 


05047 


105712 




JMS RSFQRV 


= 050 


620130 




JMP* TTYOIS 



MTEXEP 
*E IJ CISFR 

Nil rt A I T I NG NOT WAITING 
TP'E 
IS WAlTlfvG = IS INACTIVE ANY OTHFR IS NOT W A I T 



/GFT TFST ACTIVE 
/WAITING FOR INTERRUPT 



/NO START OPERATION 
/DISABLE INT 

/GET TELETYPE PUSY 
/ENABLE INT 
/IS CONTROL RDY 

/NO WAITING OK 
/IF COUNTROL READY 

/TTY BUSY OK 



/TO JUST CLR 
/IN CASE INTR 
/TAPF CHANNEL 

/MUST RE HUNG 



/TYPF CONTROL HUNG 

/EXIT FIRST CHAR GOING OUT 



/TYPE DRIVE FTC 



.EJECT 



.„J 



Ur.RFX PAHE 


4 


0*0*1 


4 4 7 "* 4 3 


C 0S2 


6 5 (' 7 1' 


0^053 


2?01 96 


C 054 


74i?0^ 


t q 5 


6 50 61 


C 056 


777777 


r -057 


3 4 7 3 4 3 


0*060 


6 ? 5 


0^061 


777777 


C 06? 


04733? 


r -063 


0601 ?6 


0R064 


20734? 


C 065 


047444 


C 066 


206066 


0K067 


605035 


0^070 


14 7 3 4 3 


05075 


147375 


05072 


140144 



TS y T^A 



IS? 

JMP 

I AC* 

SNA 

JMP 

LAW 

OAT 

J M P » 

I AW 

OAC 

daf* 

LAC 

OAC 

LAC 

JMP 

nZH 



n N r x p c 
MT ' SFL-3 
TTyFlH 



-1 
!)\i-XPC 

MTaRE" 
-1 
M T A C T V 

TTYFLG 
XTRAFL 
MTSTAT 
UNXTEX 
HNOTYP 
UNFXPC 
HNHCTR 
DEVHNG 



/TFST IJNFXP£rTFL) TaPE FLAG 
/NONF GfCD OK 

/GfT IT ACTy 
/IS IT 
/.\jn START TYPFOUT 

/RFSET U^'EXPFCTEn INT 
/EXIT WAIT TYPFOUT DONE 

/SFT APE AND TELETYPE ACTV 

/GET EXTRA STATUS 
/FOR TYPFOUT 



■EJECT 



MA^REX 



PACE 



K 073 


0?0l07 


= 074 


50775? 


01075 


0457H 


0=076 


10571? 


= 077 


205706 


= 100 


545711 


= 101 


605101 


01102 


10573? 


= 103 


605077 


01104 


605073 


01105 


10566? 


01106 


107120 


= 107 


227143 


01110 


046427 


01111 


740200 


01112 


626427 


= 113 


205127 


01114 


040010 


01115 


000107 


01116 


507753 


01117 


347754 


01120 


740100 


01121 


605117 


011?2 


347755 


01123 


740100 


01124 


420010 


01125 


440010 


01126 


60512? 


01127 


005127 


01130 


605?34 


01131 


605361 


01132 


606317 


01133 


605?34 


01134 


605?34 


01135 


606^17 


01136 


605?34 


01137 


605361 


01140 


605?34 


01141 


606317 



/TC50 RANDOM EXERCISER MAGTAPE TFST 

/RANDOM SEI El~T [s q I V E ROUTINE 

/ 

^TaSFL CAL» R4MMU" 

AND ( 7 

OAT RORIVE 

JMS RSTpRV 

LAC CD°1VE 

SAn RD R IVE 

JMP .+4 

JMS CHGOPV 

JMP MTASEL+4 

JMP MTaSFL 

JMS MVOR10 

JMS DrVsFT 

LAC. DRACTV 

DAC ACTVJM 

S2A 

JMP« ACTVJM 
SEOSEL I AC SEOTBL 

DAC 10 

RANNUM 

(7777 

(-144 



/get random number 
/mask drivf selection 
/save random drive 
/rfsft sflfct to lowest 

/does drivf fxist 

/YFs 

/GET NEXT DRIVF SELECT 

/SFE IF IT : RANDOM 

/DRIVE DOESNT EXIST TRY NEW 

/SET UP DRIVF PTRS 
/GET DRIVE ACTIVE 

/ALREADY DOING SOMETHING 
/YFS TRY TO FINISH 



/5 OUT 
SEOTPL 



OF 



CAL 

AND 

TAD 

SMA 

JMP .-? 

TAD <1? /+10 

SMA /NUM 

XCT* 10 /YES 

IS? 10 

JMP .-4 

10 ARE WRITE SELECTIONS 

SEOTBL 



/SET UP FOR EXECUTE 

/GET RAN NUMBER 
/MAKE IT + 
/-100 UNTIL " NUMBER 



GO + 
TEST 



YET 

VALID SELECT 



JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 



WRTVAL 
REDVAL 
BK1VAL 
WRTVAL 
WRTVAL 
9K1VAL 
WRTVAL 
REDVAL 
WRTVAL 
8K1 VAL 



/THE OTHER 5 BECOME 

/BACKSPACE SECFCT IF READ NOT 
/AFTFR BACKSPACE 
/HAS BEEN PERFORMED 
/THE 5 WRITE SELECTIONS 
/BECOME READ SFLFCTS 



.EJECT 



•lA-'IRFX 



PACE 







/rfwinh ali rfiivrs STapt 


;M4? 


lf»71 ?<• 


i'FIvAl.l JM^ flK'v'SFT 


t 143 


20775* 


1 AC (1 «00 


0*144 


345710 


TAP FDr- 1 VE. 


0*145 


707321 


k T r r 


0*146 


6051 4* 


JMP . -1 


0*147 


707326 


"Tl C 


0* 150 


7 7 3 4 


m t r. 


0*1*1 


2051 6 A 


I AC RE ■■'RET 


0*152 


0671 43 


DAC* O&ACTV 


0*153 


105?2? 


JMS REWCLR 


0*1*4 


10573? 


JMS CHCURv 


Ht-1155 


62500^ 


JMP* MTARE* 


1^1^1*5 6 


14733? 


Oif M T a C T V 


0*157 


625000 


JMP* MTAREX 
/DRIVE HAS BEEN "aNQOMLY 


0*160 


005161 


REWRFT .+1 


0*161 


707321 


MTCR 


0*162 


6051 61 


JMP .-1 


0*163 


205710 


1 AC FDRIVE 


0*164 


707326 


MTLC 


0*165 


740000 


NOP 


0*166 


707301 


MTTR 


0*167 


625000 


JMP* MTAREX 


0*170 


707352 


MTRS 


0*171 


507757 


AND (100000 


0*172 


741200 


SNA 


0*173 


605200 


JMP .+* 


0*174 


207760 


LAC (WRTVAL 


0*175 


067143 


DAO* ORACTV 


0*176 


105222 


JMS RE^CLR 


0*177 


625000 


JMP* MTAREX 



OF T^ST ROUTINE 

/SFT UP DRIVF TARLFS 

/REWIND 

/ + DRIVE NUMBER 



/START RFWINn 

/TO TEST RFWINP DONE 

/SFT DRIVE IS ACTIVE 

/ANY MORF DRIVES 
/YFS 00 NEXT AT FNTER 
/DONE ALL CLR PROG ACTIVE 
/EXIT 
SFLECTEO SEE IF REWOUND 



/WAIT CONTROL 



/loac drive number 
/tape ready is rewound 

/NOT REAnY EXIT 

/GET STAT 

/MASK BOT 

/SHD=1 

/BUT DOESNT 



.EJECT 



^ A r, r r x 



PAGE 



r 200 
t1 c 201 
0*202 
0*203 

0*204 

0*205 
0*206 
0*207 
05210 
0*211 
0*212 
0*213 
0*214 
0*215 

0*216 

0*217 
0*220 
0*221 

0*222 
0*223 
0*224 
0*225 
0*226 
0*227 
0*230 
0*231 
0*232 
0*233 



20*203 
04733? 
741000* 
005204 
2201 26 
740200 
62*000 
777777 
04733? 
0601 26 
107400 
207*16 
120100 
6?0l30 
207761 
047332 
160126 
620130 

405222 
777767 
040010 
207762 
045227 
167144 
445227 
440010 
605227 
62522? 



/D p IV£ SNO HF AT BDT i 
P£WE»R I. AT . + 7 

n A C MT4CTV 

SKP 

.+1 

L AC* TTYFLf, 

S2A 

JMP* 



(IT ISNT 



/SET NON INT RFTU 
/IF TYPEOUT IS ACTV 



/TTY 
/YES 



/SET 
/AND 



MTAPEX 
I AW -1 
OAr MTACTV 
DAC* TTYFLf, 
JMS TYPORV 
LAf ROTTEX 
JMS* TYPTE* 
JMP* TTYDIS 

LAC (£RRR E W 

DAC MTACTV 

DZM* TTYFLG 

JMP* TTYtllS 
/CLEAR RFCORO AND POSITION TABLES 
REWCLR 



BUSY 
EXIT 

TAPF ACTIVE 
TTY ACTlVF 



/TYPF ROT SJf) = l 



/REWIND DRIVE 



XCT 


t 


LAW 


-TA8LEK+1 


DAC 


10 


LAC 


<D?M« FILPDS) 


DAC 


.+1 


DZM. 


■ FILPOS 


IS? 


, -i 


IS? 


10 


JMP 


, -^ 


JMP« 


• REwCLR 



/GFT CLR 



/GET COUNT 

INST 
/FOR EXT 
/CLR 1 LOCATION 
/STEP TO DO NEXT 
/DONE ALL 
/NO 
/YES EXIT CLR 



•EJECT 



1 A '" r r X 



PAGE 







/RANDOM 


\-U*BPK S'-in l-.'HITF 






/SEE IF 


tape is in valid p o s 


C 234 


2?71 45 


-'KTViL 


1 AHe Ht'CPOS 


C 235 


740?0<i 




S i t- 


C 236 


605^61 




JMP P[ii/A L 


0<-?37 


2271 4ft 




1.. A r » FILWRT 


0cg40 


741207. 




SNA 


C 24 1 


605?60 




JMP WKTfgpw 


C 242 


56 714 4 




SAP» filpos 


0^243 


741000 




SKP 


0^244 


605361 




JMP »E n VAL 


C 245 


2271 5^ 




1. AC* FILFK 


C 246 


74120? 




SNA 


0^247 


605260 




JHP WRTnEN 


C 250 


1201 07 




JMS* RiNNUM 


C 251 


507763 


/ 

SEt MOD 


AND (6?.00 


C 252 


740200 




S£A 


05253 


20 5 3 7 4 




IAC wRSSTP 


C 254 


741200 




SNA 


K 255 


205416 




LAC WRMSTP 


C 256 


0671 43 




OAC» ORACTV 


05257 


625000 




JMP« M T AREX 


05260 


120107 


W R T N F W 


JMS* RANNUM 


05261 


507764 




AND (40300 


05262 


067152 




OAC» PARDEN 


0*263 


507765 




ANP (300 


0";264 


547765 




SAD (3-710 


05265 


605467 




JMP NIMTRK 


05266 


205707 




LAC CORyBT 


85267 


505705 




AND MSPITS 


05270 


245707 




XOR CDPVPT 


135271 


741200 




SNA 


05272 


605467 




JMP NIMTRK 


0*273 


750004 




LAS 


05274 


507766 




AND (7n00 


05275 


740200 




SHA 


05276 


105446 




JMS SWSPAR 



S I TION 



/AT 



A P p. C P D 

/NO NOT IN w p ITE POSITION 



/AT FILE 
/DRV NPVfR WRITTFN 
/POSITION SAME AS I 
/YFS OK TO WRITE 
/NOT WRITE POSITION 



ON 
AST 

SELECT OTHFR 



/SFlFCT NEW FILE SFQUENCF 



/AC=0 MOW IS NONSTOP 
/WRITE NONSTOP 
/START STOP SELECTED 

/NONSTOP SELECTED 

/SET INTO DRIVE ACTIVE 

/EXIT START OP NEXT SELECT 

/GFT RANDOM 

/MASK PARITY AND DENSITY 

/SAVF SELECTION 

/MASK DENSITY 

/S00 BPI NINE TRK 

/YES SEE ]F DRIVE IS 



/GET SWS 

/MASK PAR DEN SELECT 

/FORCE SELECTED 

/YFS CONVERT SWS TO PAR DEN 



.EJECT 



1AGRFX 



PAGE 



0*277 
0*300 
0*301 
/-*302 
0*30 3 
0*304 
0*305 
0*306 
0*30 7 
0*310 
0*311 
0*312 
0*313 
0*314 
0*315 
0*316 
0*317 
0*320 
0*321 
0*322 
0*323 
0*324 
0*325 
0*326 
0*327 
0*330 
0*331 
0*332 
0*333 
0*334 
0*335 



0*336 
0*337 
05340 
0*341 
0*342 
0*343 
0*344 



777771 
340011? 
777777 
3471*1 
040011 
2271*? 
507767 
740700 
207770 
741201? 
207771 
045315 
020107 
040012 
741000 
605333 
507772 

741200 
605313 
200012 
507773 
741200 
605313 
20001? 
507774 
741200 
605313 
20001? 
060011 
440010 
605313 



120107 
507774 
067150 
347775 
741100 
605336 
2271 46 



/ 

/GFN 
/FOR 
FOPA 



FRATF 7 WORDS OF PATTERN 
7 C^ANNFL T«PF OR 9 CHAM CORE DUMP 



TR 



gtpw 

FVNC 



RO 
HK 



KEEPIT 



I . A K 
HAT 
L AW 
TAP 
OAF 
I AF< 



-7 

-1 

PATTRL 
1 1 
PARPEN 



AMP (41<000 

S2A 

IAF (NOP 

SNA 

L*C (SKP 

DAC EV^CHK 

CALo RANNUM 

FiAF 12 

SKP;NOP 

JMP KEPPIT 

AND (7700jjf> 

SMA 

JMP GT p wRO 

LAF. 12 

AND (7700 

SNA 

JMP GTPWRD 

LAC 12 

AND (77 

SNA 

JMP GTPWRD 

LAC 12 

OACo 11 

IS? 10 

JMP GTPWRD 



/SKP EVEN PAR NOP FOR ODD 
/ODD PARITY ALL VALIn 
/EVEN PARITY 00 INVALID 

/DONT KEEP A00XXXX 



/DONT KEEP XX00XX 



/DONT KEEP XXXX00 

/PATFRN WORD VALID KEEP IT 

/GOT 7 

/NO GET NEXT 



/ 

/HAVE PARITY DFNSITY AND PATTERN 

/NOW SELECT FILE LENGHT 

FILSFL 



JMS» RANNUM 

AND (77 

DAC» FILFTH 

TAD (-6 

SPA 

JMP FII SFL 

LAC* FILWRT 



/6 TO 

/63 RECORDS 
/PER FILF 
/GRTR THAN 6 
/NO TRY AGAIN 



.EJECT 



PACE 



111 



0*345 
0*346 

0<*34 7 
0*360 
0*351 
0*352 
0*363 

0*354 

0*~365 
0k3>?6 
0*357 
a * 3 6 



0*361 
0*362 
0*363 
0*364 
0*365 
06366 
0*367 
0*370 
0*371 
0*372 
0*373 



05374 
0*375 
0*376 
0*377 
06400 
0*401 
0*402 
0^403 
06404 
0*405 
0*406 
0*407 
0*41 
0*411 
0*41 2 
C 413 
0*41 4 
0*415 



0671 51 
0001 07 
507776 
0671 47 
3 4 7 7 7 7 
74 11 0» 
6 514 6 
1201 07 
50775? 
06715" 
020107 
605251 



227144 
567146 
606317 
120107 
510000 
740200 
20610* 
741200 
206153 
067143 
625000 



005375 
227145 
567150 
606446 
777773 
046611 
107651 
227147 
045410 
207116 
1071 66 
00440I* 
000000 

01400"! 

106*0* 
4671 45 
14733? 
607333 



/NOW SF 


LFCT RECORD LENGTH 


/24 CHA 


R TO 2(,)0 it WORDS 




oac* f !J sf i !. 




OA! RA'-NDM 




4 NO (1?77 




OAC. RFCLEN 




TAH (-1! 




SPA 




JMP ,-<; 




JMS* R a M N U M 




AND (7 




DAC* F1LEK 




CAI » RAnnum 


/ 

/RANDOM 


JMP SELMOD 


NUMBFR SAID READ 


/SFE IF 


tape is in valid i 


REDV4L 


LAO FILPOS 




SAD* FiLWRT 




JMP BK1VAL 




JMS* RANNUM 




AND (3 




S2A 




LAC ROSSTP 




SNA 




LAC PDNSTP 




OAC* DRACTV 


/ 

/WRITE F 


JMP* MTAREX 


RECORDS START STOP 


WRSSTP 


. +1 




LAO* RFCPOS 




SAD* EILETH 




JMP WRT£OF 




I AW -5 




OAC WRITEK 




JMS GENPAT 




LAC* RECLEN 




nAC WSSWRD 




LAC WRTXTN 




JMS GOASSM 




4 4 00 


WSSWRD 


ft 



/INDlCATF riRST FILE THIS SEO 



WRPUFR 
JMS TESEOT. 
IS?* RTCPOS 
D?M MT*CTV 
JMP MTACTV+1 



/SELECT 1 TO 6 FILFS 



RFAD POSITION 

/FRF POSITION AT ENO 
/YES RFAD NOT VALID SELECT 



/START STOP MODE 

/YFS 

/OR NONSTOP 

/YFS NONSTOP 



ROUTINE 



/FILE OF RECORDS COMPLFTE 
/YES WRITE AN EOF 



/NO GENERATE DATA PATTERN 

/SET RFCORD LENGTH 

/ASSEMBLE COMMAND 

/WRITE + PAR OFNS DRIVE 

/NUM WORDS 

/STARTING HERE 

/RETU FF=1 SFE IF FOF 

/+! RECORD POSITION 



.EJECT 



ACRFX PAGE 


11 










/WRITE 


RFCORnS NON STO 


C 416 


005417 


w R M S T P 


. +1 


05417 


107651 




J H S G E M P A T 


C 4?0 


2771 47 




LAC* hTCI.EN 


C 4?1 


045430 




HAG W N S w t) 1 


r 472 


04544? 




A G W N ^ W n 2 


C 4?3 


777773 




LAW -5 


c 4 ? 4 


046611 




OAG WRTTFK 


0M25 


2071 15 




LAC WRTXTN 


0M?6 


107166 




JMS GOASSM 


0M?7 


004400 




4400 


05430 


000000 


WNSWIl 





C 431 


01 4000 




WRPUGR 


0M32 


106505 




JMS TESEOT 


0M33 


467145 




IS2* RFCPOS 


C 434 


2?7145 




LAG* RFCPOS 


05435 


567150 




SAD. filETH 


0M36 


606476 




JMP WRFOFl 


05437 


207115 




LAG WRTXTN 


C 440 


10727? 




JMS GONSTP 


0*441 


004000 




4000 


05442 


000000 


WNSWD2 





05443 


014000 




WRfiUFR 


t 444 


106505 




JMS TESEOT 


05445 


605433 




JMP WNSWDl+3 



IT INF 

/gfnfr^tf pattfrn 

/for wgrh count log 

/and same tape started 

/ASSFMRLF command start 



/EF*1 TEST EOT 

/+1 RECORD POSITION 

/WRITE FILE COMPLETE 
/YES WRITE EOF NONSTP 

/LCM AMD GO NONSTP 



/EF=i SEE IF EOT 
/TFST FOR LAST RECORD 



.EJECT 



<aGrfx 



PAGE. 12 







/Swl Tc"t 


'" A - 7 


t. N '"•■ 8 I N n 1 r 6 


T F f n w c E 


PaRIIY ang density 


,1 t 4 4 ft 


6 5 4 4 * 


^K^pm 


JMP 










A h 4 4 7 


54775* 




SAG 


( 1 "00 


/200 


HP] 


EV£N 


0^450 


750:< < 0( A 




ai 




/YES 






»*. ■= 4 5 1 


5 5 00 01 




SAT 


( ^'00 


/556 


BRI 


EVEN' 


<- 4 5 2 


? 1 5' 2 




I AT 


( 1 ' ' 


/YFS 






0.5453 


55000"< 




GAG 


( 3 ""• 


/800 


BPI 


EVEN 


c 4 (5 4 


21 0R04 




I AC 


<2 "0 


/YFS 






C 455 


550005 




SAP 


( 4'00 


/200 


bPI 


EVEN 


C 456 


75000" 




r L A 




/YFS 






0M57 


550006 




"PAD 


( 5 '00 


/200 


tiPI 


ono 


0M60 


207767 




I AT 


(4«000 






/YFS 


05461 


547763 




SAG 


( 6 


/556 


8PI 


ono 


05462 


210007 




LAG 


{ 4 •'" 1 


/YFS 






0=463 


547766 




sag 


(7000 


/800 


BPI 


ODD 


05464 


210010 




I AG 


( 40200 


/YES 






0M65 


067152 




nAG< 


t PARPEN 


/STORE SU SEL PAR ANP D 


05466 


625446 


/ 


JMP< 


» SWSPAR 


/EXIT 








.EJEGT 









DEN 



-i a r, r r x 



x page 


13 


/SET UP V -!IN£ TRACK NEW 


<- 4 6 7 


205707 I 


MN'TRK LAC CP°VRT 


C 470 


505705 


AND MS»ITS 


0*471 


2457(^7 


VOK CU»VRT 


C 472 


740200 


S2A 


C 473 


60526" 


JMP WRTNFW 


C 474 


0001 07 


CAI DAMNUM 


C 475 


510011 


ANn (2*000 


0*476 


347764 


TAD ( A&ZW 


0*477 


067152 


DACe PARPEN 


0*500 


510011 


ANO (2^000 


= 5P!l 


740?00 


Sit 


0*.502 


605277 


JMP CQPATR 


0*50 3 


777771 


LAW -7 


06504 


040010 


DAC 1.0 


= 505 


777777 


LAW -1 


05506 


347154 


TAD PATTRL 


05507 


040011 


DAC 11 


0^510 


020107 1 


^Ew9wD CAL* RANNUM 


0*511 


510012 


AND (177777 


05512 


040012 


DAC 12 


05513 


510013 


AND (377 


05514 


105530 


JMS LINKPB 


05515 


742020 


RTR 


0*516 


340012 


TAD 12 


05517 


040012 


DAC 12 


05520 


510014 


AND (177400 


05521 


105530 


JMS LINKPB 


05522 


740020 


PAR 


05523 


340012 


TAD 12 


0*524 


060011 


DAC* 11 


05525 


440010 


IS? 10 


05526 


605510 


JMP NEW9WD 


05527 


605336 


JMP FaSFL 



PATTtPM SELECTION 

/GFT THIS OR SFLFCT PITS 

/CLEAR WITH MASTFR SELECT 

/XOR SEL BIT AND 9 TRK BIT 

/]F AC=0 DRV IS 9 TRK 

n TRACK DPV TRy NEW PAR D K l 

/GET RANDOM 

/MASK CORO DUMP RIT 

/♦ ODD PAR 800 BPI 9 TRK 

/TO PARDEN CONTROL 

/CORE DUMP MODE SELECTFQ 
/YES DO A 7 TRK PATTERN) 



/GET RANDOM DATA 

/16 PITS=2 CHAR 

/SAVF TO GFT PARITY 

/MASK LOWER 8 

/GET LINK=PARITY 

/I IS CHAR EVEN IS CHAP DQO 

/+ OATA BITS 

/SAVE GOT 1 PARITY 

/MASK 2ND 8 BIT CHAR 

/GET PAR IN LINK 

/LINK=1 IS CHAP EVEN IS ODD 

/+ OATA ANO FIRST PARITY 

/STORE 1 9 TRK PAT WRQ 

/GOT 7 

/NO GO GFT 1 MORE 

/SFLFCT FILE ANO RECRD LENGTH 



.EJECT 



A r. r r x 


0*530 


C 531 


0*532 


0*533 


i)^^ 


0*535 


0*536 


0*537 


0*540 


0*541 


0S542 


0*543 



PAr.t 14 



k)R544 

0*545 

05546 

0*547 

05550 

0*551 

0*5-52 

0*553 

0*.554 

0*555 

0*556 

0*557 

05560 

05561 

0*562 

0*563 

0*564 

0*565 

0*566 

0*567 

05570 

05571 

0*572 

0*573 

0*574 

0*575 

0*576 

0*577 

0*600 

0*601 

0*602 

0*603 

0*604 

0*605 

= 606 

0*607 

0*610 

0*611 

0*612 



6R5*3« 
14554"* 
7 4 4 2 " 
74140(Z 
4 4 55 4 3 
740900 
605*39 
?05*43 
740C2C 
750C09 
695*30 
000000 



405544 
220126 
740900 
605545 
777777 
060126 
047332 
145705 
205755 
120100 
625544 
120106 
620130 
045706 
510015 
550016 
605620 
205706 
550017 
605574 
205772 
120100 
620132 
605557 
205705 
741200 
605570 
1601 26 
207751 
047332 
105712 
207344 
0601 33 
2001 12 
74^100 
605615 
20777"! 
047345 
210021 



/CAL 



CUL 

-8 



rt C^ARACTFR 
JMP . 

NP'PAR 



PAKIT Y SURROUT I H£ 



d^m 



IS? 

S,? A 
JMP 
t AT 

PAR 
TMI. ! 



NI'ipAR 

L I'JKPfi + 2 
NINPAR 



CL« 

JMP* L?NKP« 
NIMPAR 
/TAPF 2 MAGRFX 
/TC5° RAMDOM EXe r 'C!SFR 
/PaRaMFTFR LOAD ROUTINE 
G P A R A M 



GTFRSD 



OUFSTN 



XCT 


, 


lat< 


» TTYFLG 


SHA 




JMP 


, -9 


LAW 


-1 


OAC< 


» TTYFLG 


OAC 


MTACTV 


dzm 


MS R ITS 


LAC 


SELTEX 


JMS» TYPTEX 


JMP» G^ARAM 


JMS* WKYBD 


JMP» TTyDIS 


DAC 


CORIVE 


AND 


(370 


SAn 


(260 


JMP 


VLODRV 


LAC 


CORIVE 


SAR 


(215 


JMP 


.+5 


LAC 


TYOUES 


JMS» TYPTEX 


JMP« LSTKEY 


JMP 


GTFRSO 


LAC 


MSRITS 


SNA 




JMP 


. -6 


OZMi 


i TTYFLG 


I AC 


(RFWALL 


OAC 


MTACTV 


JMS 


RSFQRV 


LAC 


M T A I N T 


OAC* 


• i J F V I N T 


LAC 


APIENA 


SMA 




JMP 


, + A 


LAC 


(Nip 


OAT 


MTs INT + 1 


I AC 


(JMS MTAPI 



/CLR b!T COUNT 

/«OVF 1 PIT INTO LINK' 

/ = m 

/NO +1 NUMBER p I TS ■ 

/OOKir ALL "ITS 

/NO AT LFAST 1 LFFT 

/GFT NUMRER PITS 

/L=l ono L=0 EVEN PITS 

/LINKrPAP RIT 4C = ia 

/EXIT 



/TELETYPE RUSY 
/WAIT 

/SFT TFLFTYPE RUSY 
/AND TAPE TEST ACTIVE 
/CLR PREVIOUS SELECTIONS 

/TYPF SELECT TFXT 

/EXIT FIRST CHAR STARTFO OUT 

/TEXT HONE WAIT INPUT 

/DISMISS PPTR FLG 

/SAVE CHARACTER 

/CHARACTERS TO 7 

/YES IS DRIVE NUMBER 

/IN NOT NUM8FR MUST=CR 

/CAR RFT 

/YES END OF SELECT 

/IVALID CHARACTER (1R TRK 

/OR CAR RET NO DRIVES 

/DISMISS KYBCi 

/WAIT NEXT CHARACTER 

/CHARACTER WAS CAR RET 

/ANY ORVS SELECTFD 

/NO TYPE A QUESTION 

/END OF SELECTION 
/CLR PTR ACTIVF 
/SET MAG TAPE INACTIVE 
/TO REWIND ALL 



/IS API ON 

/NO API 

/NOP MAGTAPE SKIP 



"lA'iRFX 



PAGE lb 



^ u 613 


040C4S 


0^614 


6?0l3? 


H^615 


2100?? 


^616 


4 7 7! 4 5 


^61 7 


6201 3? 



HAC APIADR 

JMP» LSTKEY 

LAC (MTSF /NO API SO 

Fl A C MTMNT + 1 

JMP» LSTKEY 



/SFT UP API INTERRUPT 
/DISMISS CAR RFTU 

/SFT UP MTSF FOR PIC 



.EJECT 



( A G R F X 



PACE 16 



/CHARACTER INPUT WAS A I)"1V'L NUMBER v TO 7 



*1*6?0 


?0570f 


vtnoRv 


L AT 


CIVMVE 


0*6?1 


50775? 




AN n 


( 7 


0*622 


045706 




DAC 


CD<-IvE 


0*6?3 


740?01 




cma 




0*6?4 


0457)7 




DAT 


FORIVE 


0*625 


2 1 1* ? * 




1. AT 


( 4 ,, M00M 


C 6?6 


44571? 




IS? 


FD°IVE 


0"-6?7 


741000 




SKP 




0*630 


605*33 




JMP 


, +3 


0*631 


7 4 4 2 




RCR 




0*632 


605626 




JMP 


■ - 4 


0*633 


045707 




DAC 


CO»VRT 


0*634 


505705 




AND 


MSRITS 


0*635 


74020A 




SZA 




0*636 


605675 




JMP 


OR"ELE 


0*637 


206007 




LAC 


SP3TEX 


0*640 


120100 




JMS« TYPTEX 


0*641 


62013? 




JMP» LSTKEY 


0*642 


120106 


SELTRK 


JMS* WKYRD 


05643 


620130 




JMP* TTYDlS 


0*644 


045710 




DAT 


FDRIVE 


0*645 


550024 




SAD 


(267 


0*646 


605653 




JMP 


SVNTRK 


0*647 


550025 




SAD 


(271 


0*650 


741000 




SKP 




0*651 


605*70 




JMP 


QUFSTN 


0*652 


105662 




JMS 


MVOR10 


0*653 


205705 


SVNTRK 


I AC 


MSPlTS 


0*654 


245707 




xor 


CQRVBT 


05655 


045705 




DAC 


MSBITS 


05656 


205775 




LAC 


NEXTFX 


0*657 


120100 




JMS« 


> TYPTEX 


05660 


628131 




JMP< 


> KROOiS 


0*661 


605557 




JMP 


GTFRSD 


0*662 


60566? 


MVOR10 


JMP 


, 


05663 


205707 




LAC 


CQRVBT 


0*664 


744020 




rcr; 


RTRi 


0*665 


742020 








0*666 


742020 








0*667 


742020 




PTPi 


rtr; 


05670 


742020 








0*671 


740020 








0*672 


245707 




XOP 


CQRVPT 


0*673 


045707 




OAC 


CD"VRT 


05674 


62566? 




JMPc 


• MVOP10 



/MASK PRlVF NUMBEk 
/AND SA V F IT 
/MAKF - 

/BIT FDR DRIVE 
/RIT POSITIONED 
/NO MOVE IT 1 PLACF 
/BIT IN POSITION 
/POSITION FOR NEXT ORV 
/COUNT NUMBER AGAIN 
/SAVF POSITIONED BIT 
/MASK SELECT BITS 
/DRIVE ALRFADY SELECTED 
/YFS DELFTF IT 

/SPACE OVER 3 

/DISMISS KRD FLAG 

/WAIT FOR TRACK SELECT 

/DlSSMISS 3RD SPACE 

/SAVF TRACK SELECT 

/SEVEN 

/YES JUST DRIVF RIT 

/N1NF 

/YFS 

/NOT 7 OR 9 TYPE QUESTION 

/GET DRIVE SELECT 

/GFT MASTER SELECT 

/COMRINE HITHDRV SFLFCT 

/STORE COMBINED 

/CAR RFT LF SPACE 
/DISMISS KBD FLAG 
/WAIT NEXT DRIVE NUM 

/MOVF DRIVF COMPARE 

RTR /MOVF 10 PLACES 



RAR 



/TO GET TRACK SELECT 



/COMBINE BITS 
/SAVF THFM 
/EXIT 



.EJECT 



'1 A r, R f X PAGE 


1 7 






C 675 


105662 


PRDELE 


JMS MVOR10 


C 676 


740001 




CMA 


0^677 


505705 




ANn MS«ITS 


C 700 


04570S 




DAT MSniTS 


0^701 


20600^ 




I AC TY«El E 


0^702 


120100 




JMS* TVPTEX 


C 703 


620132 




JMP* LSTKEY 


K 704 


605557 




JMP GTfHSO 


0*705 


000000 


MSRITS 





05706 


000000 


CDRIVE 





05707 


000000 


CORVRT 





0^710 


000000 


TDRIVE 


fl 


05711 


000000 


RDRIVE 
/ 






/COMRINE DRV AND TRACK 
/MAKE l'S COMP 
/HSK OUT THIS DRIVE 
/SAVE flTME SELECTIONS 

/TYPE DELETED 
/DISMISS KSD ELAG 
/GFT NEXT DRIVE 



.EJECT 



MACRFX 



P A r. f 18 







/RFSFT D'-'IVE SELECTION TO 


LOWEST DIM V E NUMPE" 


0^712 


60571? 


PSFURV JMP , 




« c 7!3 


14 5 7 0ft 


n£M rfj :; IVE 


/START WITH 


d^l 4 


21 00?:* 


I. AT ( 4 '0000 


/HIT f n R 


C 715 


045707 


OAF C0 IJ VPT 


/SAVF IT 


0"-716 


505705 


AND MS»ITS 


/MASK WITH DRVS SELECTFD 


4 K 7l7 


744200 


S^AICLL 


/DRIVE EXIST 


0=720 


6057?5 


JMP . +* 


/YFS 


0W?1 


44570ft 


IS? fD'HVE 


/ + 1. nRV NUMBFR 


C 7?2 


205707 


lac nnPVRT 




05723 


744020 


RCR 


/MOVF PIT OVER 1 


C 7?4 


605715 


JMP RSf"DRV-t3 


/TRY AGAIN 


C 725 


205706 


LAC C0»IVE 


/GFT DRIVE NUMRER 


05726 


742020 


RTR 


/POSITION IN 


05727 


742020 


PTR 


/SELFCT SLOT FOR 


= 730 


045710 


OAT FDRIVE 


/MAGTAPE FUNCTIONS 


05 7 31 


62571? 


JMP* RSFDRV 
/ 
/SFLFCT NEXT DRIVE IN SEO 








UENCE 






/+1 FX1T APOPESS IF LAST 


DRIVE TFSTEO 


05732 


60573? 


CHCDRV JMP 




05733 


205707 


LAC CORVBT 


/GFT MASK BIT 


C 734 


744020 


RCR 


/MOVF OVER I 


05735 


445706 


IS? CDRIVE 


/+1 nRIVF NUMBFR 


05736 


510026 


AND (776000 


/MASK OF 8 BITS 


0=737 


740200 


SZA 


/END OF 8 DRIVES 


C 740 


605744 


JMP ,+4 


/NO SEF IF DRV EXISTS 


C 741 


10571? 


JMS RSFDRV 


/RFSFT TO FIRST SELECTFD 


05742 


44573? 


IS? CHCDRV 


/+1 FXIT END OF DRIVES 


05743 


62573? 


JMP* CHGORV 


/EXIT 


05744 


045707 


OAC CORVBT 


/SAVE CUR BIT 


05745 


505705 


AND MS«ITS 


/MASK DRIVFS SELECTED 


05746 


745200 


SNAICLL 


/DRIVE EXIST 


0*747 


605733 


JMP ChGDRV+1 


/NO SEE IF NEXT FXISTS 


05750 


205706 


LAC CORIVE 


/DRIVE NUMBER 


05751 


742020 


RTR 


/POSITION NUMBFR 


05752 


742020 


RTR 


/TO SELECT POSITION 


= 753 


045710 


OAC FDRIVE 


/FOR MAGTAPE FUNCTIONS 


05754 


625732 


JMP* CHGDRV 


/EXIT WITHOUT SKIP 



.EJECT 



PACE 19 



0^755 


005756 


SEi jr x 


C 756 


6 4 9 41 




0^757 


2*1M2 




■A' 760 


4 6 21 3 a 




t 761 


3 5 2 1 "> 




fc 762 


422451 




^t c 763 


153?l2 




/i c 764 


514321 




0"-765 


242?44 




0*766 


5310-1? 




0*767 


451226 




0*770 


064244 




0*771 


077400 




0*772 


005773 


TYOU^S 


0*773 


374321 




05774 


220376 




0*775 


005776 


MEXT^X 


0*776 


064244 




05777 


077400 




06000 


006001 


TYPElE 


06001 


202110 




06002 


546212 




06003 


5221 30 




06004 


406424 




06005 


203760 




06006 


000000 




06007 


006010 


SP3TFX 


06010 


201004 




060U 


077400 





■ ASCII <1 5><1 2><1 2VSELFCT OR I VE S • <15X 1 ?> • OR • 



.ASCII 'V TRK'<l5><i2X4i*X177> 



.ASCII <77><15><12><40><!77> 



.ASCII <15><1 2><40><1 77> 

. +1 
.ASCII ' DFLETEO'<15X12><40><177> 



. +1 
.ASCII - '<177> 



.EJECT 



' a '"- H r k 



nsct 



7 



f 1 2 


'/06('l3 


'"HI f 1 (■ 


,1 ^ « 1 3 


i-i 6 4 9 41 




'014 


77740a 




,' f 1 5 


.4 6 '•' \ 6 


CR! F TX 


6 016 


064757 




0*017 


7 » * 




' 2 


006021 


CpJgTX 


06 0?i 


201017 




0*072 


70000C 




06073 


006024 


FoFT^X 


06074 


064250 




06075 


547210 




06076 


202370 




06077 


620214 




06030 


4 4 6 310 




0*031 


520217 




06032 


542410 




06033 


541650 




06034 


4261 17 




06035 


700000 




0*036 


006037 


MOF F X 


06037 


064250 




06040 


547710 




06041 


202370 




06042 


620214 




06043 


446310 




06044 


520234 




06045 


476504 




06046 


042660 




06047 


5021 30 




06050 


352212 




06051 


423760 




06052 


000000 





, A^C! I <1 5><12><1 2X1 77> 

( + i 
. A c -C! I <1 5X1 2X1 ? 7 > 

, + 1 
.ASCII ' '<177> 

.AScil<l5><12>'(TNn OF FILF F XPECTFU • < 1 77> 



.AScil <15><l2>'FMn OF FILF MOT F XPECTFO • <1 77> 



.EJECT 



•i a r: r r x 



o a r. E ? 1 



6 s 3 


6 " 5 4 


6 5 4 


064241 


06055 


25220? 


06 056 


5 21 ? 4 


0'057 


4 16 3 6 


06060 


472512 


6 61 


247630 


06062 


20221? 


06063 


547216 


06064 


774000 


06065 


n 


06066 


006067 


06067 


064241 


06070 


252634 


06071 


426612 


06072 


042606 


06073 


522130 


06074 


420232 


06075 


406164 


06076 


052202 


06077 


5021 24 


06100 


04 4 6 3 4 


06101 


522132 


06102 


251252 


06103 


502517 


610 4 


700000 



'NC.TFX 



, ASCII <15><1 2><1 2> ' TAPE CONTROL HUN0'<177> 



06105 
06106 
06107 
06110 
061U 
06112 
06113 
0611 4 
06H5 
06116 
06117 
06120 
06121 
06122 
06123 
06124 
06125 
6 126 
06127 
06130 
06131 
06132 
06133 
6 13 4 



0061 06 
107073 
047116 
120107 
51 0027 
741200 
606737 
1201 07 
510030 
741200 
60 7 31 
510031 
741200 
60 7 4 3 
2271 47 
146430 
0461 31 
207116 
1071 66 
2 4 

016 
10 6 612 
2271 4 C 



IINXTfX 



. +1 



.ASCII <1 5X12X1 2> "UNEXPECTED MAG TAPE I NTERRUPT i < 177> 



/ 

/TC59 REAO ANO BACKSPACE ROUTINES 

/FOR RANDOM EXFROISER 

/TAPE 3 

/READ 1 RECORD START STOP ON DRIVE SELFCTED 

RQSSTP .+1 



JMS RTVTNO 
DAC RUXTNO 
JMS* R»NNUM 

AND (140 /IF ROTH 

SNA 

JMP RflOSTP 
J M c » R ANNUM 

AND (7"l /IF ALL3 = 

SNA 

JMP RKREAD 
AND (5' 1 

SNA / = 

JMP R E A P K 
LACe RFCLEN 

n^M RL^SRO /0 TO NUMtiFR BLKS RD 

DAT RQWRn /RECORD LENGTH 
I AC RUYtno 

JMS COASSM /ASSFKRL AMQ START READ 

24 10 



/SFLFCT EXTN 
/MEM 



/BITS:0 

/READ COMPARF 



/BACKSPACE RD 
/IF THFSF 2 

/RFAFI PACKSPiCF 



PDWRr 



RD''UFR 
JMS RiH"OF 
uc» w r c P S 



/RFTU FF = 1 TEST EUF = i 



"IA''-RF X 



PACE 



22 



Mf 135 


5A71 5 


■1M36 


&06?63 


0'-13 7 


4 4 6 4 3 


:/) f 1 4 


1073.3? 


Id f' 1 <s 1 


1 7 ft 5 1 


0/.142 


107 r >?B 


0^143 


01 6000 


614 4 


4 6 7 1 4 5 


0M-»5 


14733? 


ft 1 4 6 


1201 07 


06147 


50775? 


06150 


741200 


6151 


167143 


06152 


6 250 00 



SAP* FILFTH 

.]* Pu r orx 
IS? riL^SRO 
JM"? MT.'.CTV 
J MS Si'ifll 
JM^ Cj'lATA 
PO L -UFR 
!3?» RPCPOS 
n i M M T A C T V 
JMS» HAMNUM 
A:\lfi (7 
SNA 

nZM» (Hah tv 

JMP° MTEXER 



/WAS TAPF AT EOF 

/YFS SuD nAyF Ff = 1 

/1 BLOCK RFAO 

/DATA COMPARF MOT IN I MODE 

/GfNrkATF PR1VF PATTERN* 

/COHPAPE AF.AinST - 

/HFcnPO IN READ BUFFFR 

/ + 1 CETORD POSITION 1 

/CIR TAPF PROG ACTIVE 

/GET RAN NUMRE" 

/MASK TO 7 

/KEEP READ STOP SELECT 

/NO CLP nRIVE ACTIVE 

/EXIT TAPE TEST 



.EJECT 



•'acrfx 



p age 23 







/ORI"£ ^FLrcTION IS RE 


06j53 


6 1 5 4 


r-ONSTP ,+i 


f 1 5 4 


If 7i'7"« 


JM<; r,T*TNO 


f- 1 * 5 


.547116 


rur RrivTNU 


f 1 c 6 


120107 


J M S » K 4 ,\ N U M 


ii^l 1 :;? 


5 1 V 2 7 


'■NP (14v) 


'/5 ^ 1 IS 


741200 


SNA 


0f-161 


606756 


.IMP ROC MS T 


0' 162 


2271 47 


!*r« r^rcLEN 


06163 


146430 


P2 U RLKSRD 


0^164 


0461 71 


o a c r n s w n i 


06165 


046?14 


n ac R n s vj n 2 


06166 


2071 16 


LAC RD y TND 


06167 


1071 66 


jms hoassm 


06170 


002400 


2400 


06171 


000000 


R n S w n i 


06172 


01 6000 


RURgfR 


06173 


10 6 612 


JMS RiJFOF 


06174 


2271 45 


l.AC» RFCPOS 


06175 


346430 


TAP RL.KSRD 


06176 


567150 


SAO* FILFTH 


06177 


606263 


JMP RDFOFX 


06200 


4464 30 


IS? PLKSRD 


06201 


200033 


LAC OALOO 


06202 


510032 


AND (17777 


06203 


350 33 


TAD (1 


06204 


046215 


DAT RNSW02+1 


06205 


346171 


TAP RNSwm 


06206 


350034 


TAn (-2000? 


06207 


740100 


SMA 


06210 


606220 


JMP RNSALL 


06211 


207116 


1 AC RQVTNO 
/ 

JMS GONSTP 


06212 


107272 


06213 


002000 


2000 


06214 


000000 


R N S W 2 


06215 


016000 


RD^UFR 


06216 


106612 


JMS RDFOF 


06217 


6061 74 


JHP RNSWPl+3 


06220 


107332 


RNSaLL JMS MT4CTV 


06221 


107651 


JMS GENRAT 


06222 


21 0035 


LAC (RHBUFR 


062?3 


046225 


OAC RNSCOM 


06224 


107^25 


JMS CU'UTA 



N n N STOP 



/SFLFCT XTN 
/SAVF RANK 



/IF ni)TH=o 

/REAP CfJMPARF 

/CI R HLKS READ TO 
/SET RECORD LENGTH 



/ASSFMRLF READ COMANn GO 



/RETURN FF=l SFE IF EOF 



/WAS TAPF AT EOF 
/YES SHOULD HAVE EF = 1 
/+1 RLOCKS RFAP 

/MASK FO» END OF BANK 
/TO READ NFXT RLOCK 

/+ RECORD LENGTH 

/-flK 

/WILL RECORD EXCEED RANK 

/YFS STOP NONSTOP PEAQ 



/MOVE TAPE NEXT BLOCK 



/RETURN FF=i TFST FOE 
/NO FF TRY RD NEXT BLOCK 
/COMPARE NOT IN INRUPT 
/RFTURN MAGTAPF SELECTED 

/SFT UP COMPARF FIRST RECORlJ 
/COMPARE 1 RECORD 



.EJECT 



' A r, R F X 



page ?4 



^225 
Vf??b 
06??7 
06230 

0'231 
06232 
0' 233 
0^234 
06 235 
06236 
06237 
06240 
06241 
06242 
06243 
06244 
06245 
06246 
06247 
06250 
06251 
06252 
06253 
06254 
06255 
06256 
06257 
06260 
06261 
06262 



1 6 "• '>• 
46714^ 
777777 
3 4 6 4 30 
4 6 4 3!' 
7 4 1 ? r> 
6 6 2 4" 
206P25 
3671 47 
046225 
606?24 

14733? 
227145 
567150 
606251 
120107 
507752 
741200 
16 714 3 
625000 
207444 
510036 
741200 
606244 
167145 
467144 
227144 
567146 
167143 
625000 



R N S C M 


1 P •- U F R 




! S 7 ° K I C P S 




1 Ai.. -1 




TAP RLf'SRD 




run «L"SPO 




SNA 




JMP ,**> 




I.AP RN'-COM 




TAO» RFCl EH 




OAP R M S c M 




JMP RNSCOM-1 




n^M MTacTV 




1 AC» RFCPOS 




SAD" FILFTH 




JMP , + 6 




JHS* RAMNUM 




ANO ( 7 




SNA 




n2M» ORACTV 




JMP* MT£XER 




LAP MTSTAT 




ANO ( 10000 




SNA 




JMP .-1.0 




D2M» RFCPOS 




IS?* FILPOS 




LAO* FILPOS 




SAP* FILWRT 




DZM« DRACTV 




JMP* MTEXER 



/ + 1 R E P R U POSITION 

/HI-K^RO -1 

/COMPARED ALL READ 
/YFS 

/START LST BLK + LFNGTW 
/IS START NEXT BLOCK 
/COMPARE NEXT "LOCK 
/CLR TFST ACTIVE 

/PAST LAST BLK 

/YFS 

/GET RNOOM 

/MASK TO 7 

/KEEP RE»0 SELECT 

/NO CLR ORV ACTIVE 

/EXIT TAPE TEST 



/LAST READ OVER EOF 

/NO 

/CLR 

/RECORD + 1 FILE 



/AND ORV ACTIVE 
/EXIT TAPE TFST 



.EJECT 



X P A G E 


25 


SifZM 


10733? 


06264 


2201 26 


06265 


7 4 2 " 


06266 


625*'0? 


6 2 6 7 


mm 


06270 


4 7 3 3? 


06271 


6 012 6 


06272 


10 740C 


06273 


206>"23 


6 2 7 4 


12010P 


06275 


62013? 


06276 


16 0126 


06277 


210037 


06300 


047332 


06301 


6201 30 


06302 


707321 


06303 


606302 


06304 


205710 


06305 


707326 


6 30 6 


707301 


06307 


606306 


06310 


207756 


06311 


707324 


06312 


707304 


06313 


14 7332 


06314 


205160 


06315 


0671 43 


06316 


625000 


06317 


227145 


06320 


740200 


06321 


606325 


06322 


227144 


06323 


567151 


06324 


605361 


06325 


2057H 


06326 


510000 


06327 


740200 


06330 


20633*5 


06331 


741200 


06332 


206407 


06333 


0671 43 


06334 


6 2 5 0!? 



J On)FX 


JMS «'[\CTV 




I AC<s TTYFLG 




S£A 




JMP» MTtXtR 




I AW -1 




rur M TAG TV 




oac« TTYFLG 




J MS T Y n R V 




LAT FOTTFX 




JHSs TVpTE/ 




JMPo TTYHIS 




n^M« TTYFLG 




I.AC (E^RPEW 




OAC MTACTV 




JMP» TTYD[S 


r RRREw 


MyCR 




JMP .-1 




LAC FDPIVE 




MTLC 




MTTR 




JMP ,-i 




LAC (1»00 




LCM 




MTGO 




OZM MTACTV 




LAC RE-'RET 




DAC» O^ACTV 




JMP* MTEXER 


^KlVAL 


LAC« RFCPOS 




SHA 




JMP , +-! 




LAC* FILPOS 




SAO* FPSFIL 




JMP REOVAL 




LAC RO'MVE 




ANO (3 




SHA 




LAC PKSSTP 




SNA 




LAC RKNSTP 




OAC* ORACTV 




JMP* MTEXER 



/GFT RECORD POSITION 

/AT A BLOCK 

/MO BACKSPACE !S VALID 

/TAPF POSITION 

/AT START OF FIRST PILF 

/YES BACKSPACE NOT VALIO TRY RFAD 

/GET KANnOM SELECT 

/IF 

/AC=0 GO NONSTOP 

/GO START STOP 

/BACKSPACE NONSTOP 
/INDICATES DRIVE ACTIVE 
/EXIT TAPE TEST 



.EJECT 



"AGRFX 



pace ?6 



06335 
06336 
6337 
06340 
06-341 
6 3 4 2 
06343 
6 3 4 4 
06345 
06346 
6 34 7 
06350 
06351 
06352 
06353 
06354 
06355 
06356 
06357 
06360 
06361 
06362 
06363 
06364 
06365 
06366 
06367 
06370 
06371 
06372 
06373 
06374 
06375 
06376 
06377 
06400 
06401 
06402 
06403 
06404 
06405 
06406 



6 ■* 3 6 

22714= 

7 4 2 ?■ 

606"M4 

2?71 44 

567151 

741000 

6 6 3 4 7 

167143 

625000 

120107 

510040 

741200 

606345 

750000 

107166 

007400 

000001 

013777 

606372 

741000 

107617 

777777 

3671 45 

741100 

606263 

067145 

147332 

607333 

510036 

741200 

606362 

227145 

740200 

606431 

227150 

0671 45 

777777 

3671 44 

0671 44 

147332 

607"?33 



/SFLFCT10N WAS T"> fiATKSPACF 


D KSSTP 


, -*■ 1 


I. *H 


» H ! ■ c P s 


c; t A 




JMP 


. + A 


LAC. 


» FILPOS 


SAO* P-'SFII 


SUP 




JMP 


. + 3 


0?Mh 


* U»ACTV 


JMP» MTEXEP 


J M S » RANNUM 


AND 


(17 


SNA 




JMP 


. -5 


CLA 




JMS 


GOASSM 




7400 




1 




FAKECA 


JMP 


RKTOFx 


SKP 




JMS 


TBADTP 


LAW 


-1 


TAD« 


» RFCPOS 


SPA 




JMP 


ROFOFX 


OAC« 


- RFCPOS 


D2M 


MTACTV 


JMP 


MTACTVi-l 


PKFOFX AND 


(10000 


SNA 




JMP 


BKFOFX-10 


LACo 


■ RFCPOS 


SZA 




JMP 


EOFNTX 


LAC« 


F1LFTH 


DACo 


RFCPOS 


LAW 


-1 


TA0» 


FILPOS 


0AC» 


FFLPOS 


D2M 


MTACTV 


JMP 


MTACTV+1 



START STOP 



/ T APF AT A BLOCK 
/NO 

/AT FIRST FILE 

/YES 

/NO 



/GET RNQM 
/0 TO 1 7 
/IF = 
/STOP PACKSP 



/BACKSPACE 
/l RFCORO 

/SEE IF SHO=FOF 



/NEW POSITION 
/SHD HAVE REEN EOF 

/CLR TEST ACTIVE 
/EXIT 

/EOF = 1 

/NO SEE IE 8A0 TAPE 

/FROM A RLOCK 
/NO SHO NOT RE EOF 

/SET NEW RFCORO POSITION 

/FILF POSITION -1 
/IS NEW FILE POS 
/CLR TAPF TEST ACTIVF 
/EXIT DISMISS 



.EJECT 



ACRFX PACE 


?7 










/SFLFCTI 


'1 \ 4 A S TO RACK 


VII 407 


0P6H / 


RKNSTP 


, + 1 


0641 


2 ? 7 1 4 ■=• 




LAP Kt c PO c , 


0641 1 


74 170!' 




SNA 


06 412 


606^3* 




J MP PK C STP*1 


364] 3 


2271 4S 




! »c» k'CPOS 


0*41 4 


0464?? 




HAT RNSwPfJ 


0M15 


75000^ 




TL« 


06416 


1071 66 




JMS hoassh 


0641 7 


007400 




7 4 ''id 


064P0 


00 00 00 


F ' N S k ~ 





06421 


013777 




FA"ECA 


064?? 


107617 




JMS T-UOTP 


06423 


1 A 7 1 4 3 




n?*e D"ACTV 


06424 


I1S7I 45 




t)i*<* RECPOS 


064?5 


14733? 




Din mTACTV 


064?6 


607333 




JMP MTACTv+1 


06427 


000000 


ACTVJM 





06 4 30 


000000 


P(_KS«D 









/ 


.EJECT 



/AT A SL0CK 

/yfs go nvFR e*o of f 11 e 

/BLOCKS TO BACK UP 

/STAPT backspace 

/ERROR STATUS SEF IE 8A0 TAPE 

/MUST R£ AT A PLK 
/CLR TFST ACTIVE 
/DISMISS HTF 



KRFX 



PAGE ? a 



06431 


10733? 


06432 


2201 26 


06433 


740?0" 


6 4 3 4 


625000 


v^ <^ 4 3 5 


1 7 4 C" 


06436 


206<*36 


6 4 3 7 


1201 01* 


06440 


620130 


06441 


207761 


06 442 


04 7 3 3? 


06443 


1601 26 


06444 


620130 


06 445 


750000 


06446 


107166 


06447 


005401* 


M 5 


000000 


06451 


013777 


06452 


741000 


06453 


606263 


06454 


510036 


06455 


741200 


06456 


606263 


06457 


167145 


06460 


467146 


06461 


4671 44 


06462 


147332 


06463 


777777 


06464 


367153 


06,465 


740100 


06466 


067153 


06467 


167143 


06470 


227151 


06471 


740200 


06472 


607333 


06473 


206527 


06474 


067143 


06475 


607333 


06476 


7500 03 


06477 


10727? 


06500 


00500W 


06501 


000000 


06502 


013777 


06503 


60645? 


06504 


606?63 



'v o or 


FILE RFCF IVF.n ANP 


f Of MX 


JMS MT/.CTV 




y A<~» TTYF L r, 




S^ 




. 1 M P » H T t V E w 




JMS TYP|jRV 




I AC NOFOFX 




JMS» TyPTEV 




JMPo TTYOIS 




LAC (ERRREW 




nAC MTACTV 




n2"» TTYFLr, 




JMP» TTYOlS 




CIA 


/WRITE E 


NO OF FILE MARK S" 


WRTEOF 


JMS GOASSM 




54'10 









FAKECA 




SKP 




JMP ROFOFX 




ANO ( 1PI000 




SNA 




JMP ROFOFX 




0?M* RFCPOS 




IS?* FILWRT 




IS?* FILPOS 




OZM MTACTV 




LAW -1 




TAD» FILFK 




SMA 




OAC» FILFK 




02M* QRACTV 




LAC» FRSFIL 




SZA 




jmp mtactv+i 




IAC FRSREW 




OAO» ORACTV 




JMP MTACTV+1 


/WRITE END OF FILE NONSTOP 


URF0F1 


CLA 




JMS HONSTP 




5000 









FAKECA 




JMP WRTEOF+4 




JMP ROFOFX 



NOT FXPErTFn ERROR 

/WAIT FOR TEST 

/RF FfgTFP 

/TT Y BUSY 

/YFSAIT TILL IT ISNT 

/START TYPFOUT 

/TYPF NO EOF TEXT 



/SO ORIVF WI L BE 
/RFWOUNO AT NEXT EnTFR 

START STOP 

/ASSFBLE ANO GO 
/WRITE END OF FILE 



/MUST HAVE E R 



/£OF=l 

/NO MUST=1 

/BACK TO A BLOCK 

/l MORF FILE WRITTFN 

/ANO NEW FILF POSITION 

/CLEAR TEST ACTIVE 



/SET DRIVE INACTIVE 
/FIRST FILE0 
/IF YES REWIND 
/NO JUST EXIT 

/RFWIND 
/OISMISS EOF 



/TEST EOF PIT 
/EF MUST=1 



•EJECT 



<a r. r r x 



X PAGE 


?9 


0*505 


4 6 c c - 


0*506 


2074 44 


0*507 


5 1 <■'■ 4 2 


0*510 


74020" 


0*511 


606^1 c i 


0*512 


207761 


* 5 1 3 


04733? 


0*51 4 


607333 


0*515 


107*17 


0*516 


107332 


0*51 7 


22012* 


0*520 


740200 


0*521 


625000 


0*522 


107400 


0*523 


206563 


0*524 


047332 


0*525 


1601 2* 


0*5?6 


620130 


0*5?7 


006530 


0*530 


707321 


0*531 


625000 


0*532 


20571W 


0*533 


70732* 


0*534 


707301 


0*535 


625000 


0*536 


20775* 


0*537 


707324 


0*540 


707304 


0*541 


206544 


0*542 


067143 


0*543 


625000 


0*544 


006545 


0*545 


707321 


0*546 


625000 


0*547 


205710 


0*550 


707326 


0*551 


707301 


0*552 


625000 


0*553 


707352 


0*554 


507757 


0*555 


741200 


0*556 


605200 


0*557 


1671 44 


0*5*0 


167145 


0*5*1 


1*71 43 


0*562 


625000 



/WRITE 


U-'R FLAG;1 SEE IF ITS EOT 


lESfnT 


XCT 




I A r m T S T A T 




AND (373600 




S2A 




JMP .+4 




1 AH (E°RREU 




DAG MT4CTV 




JMP MTACTV+1 




JMS T8MJTP 




JMS MTACTV 




LAG* TTYFLG 




S£A 




JMP» MT£X£R 




JMS TyPDRV 




LAC WRT8AK 




OAC MTACTV 




D2M» TTYFLG 




JMP« TTYniS 


/FIRST 


FILE IN SFRjES [S FllF 


FRSREw 


. +1 




MTCR 




JMP* MTAREX 




LAG FDPIVE 




MTLC 




MTTR 




JMPo MTAREX 




LAG (1?0(H 




LCM 




HTGQ 




LAG WTFRFW 




DACo QRAGTV 




JMP* MTAREX 


WTFRFW 


.♦1 




MTGR 




JMP* MTAREX 




LAG FIJRIVE 




MTIC 




MTTR 




JMP» MTAREX 




»TRS 




AND (i»0000 




SNA 




JMP RE^ERR 




u2M» FfLPOS 




n?M« RFCPOS 




n?M» ORAGTV 




JMP* MTAREX 



/JUST F0T=1 



/SFE IF RAP TAPE STATUS 
/WAIT RE ENTER TO TYPE 

/TTY BUSY 

/YFS JUST GET GUT 



/CU NOT RDV EXIT 
/GET DRV NUMRER 

/ORV ROY YET 
/NO FXIT 

/CHNG TO REWIND 
/START RFW 

/SET UP TO WAIT REW DRIVE 
/EXIT 



/CU NOT RDY EXIT 

/LOAD PRIV NIJMPER 
/DRV ROY 
/NO EXIT 

/IF=1 SHO BE 

/ROT 

/BOT NOT=l E HO 

/AT FILE0 

/RECORD 

/INAGTIVF 

/EXIT TEST 



.EJECT 



._y 



•uorfx pace 


3 








06563 


^06564 


WRTBAK 




, + 1 


6 5 6 4 


4466n 




IS? 


WR! TEK 


065*5 


74100B 




SKP 




06566 


60630? 




J MP 


FRPRFW 


06567 


750!*0™ 




riA 




06570 


1071 66 




JMS 


f ; s S S M 


06 571 


007400 






74 : '0 


06572 


00 01 






1 


06573 


013777 






FAKECA 


06574 


107617 




JMS 


TBAOTP 


06575 


10733? 




JMS 


MTACTV 


06576 


227147 




I.AC» RFCI. EN 


06577 


046603 




OAC 


, +4 


06600 


207115 




LAC 


WRTXTN 


06601 


107166 




JMS 


GOASSM 


06602 


014400 






14400 


06603 


000000 









06604 


014000 






WRRllFR 


06605 


606506 




JMP 


TESEOT*! 


06606 


777773 




LAW 


-5 


06607 


046611 




FIAC 


WRITEK 


06610 


626505 




JMP» TFSFOT 


06611 


000000 


WRITFK 
/ 








/TRIED 4 TIMES 

/NO 

/YES REWIND IT 



/WAIT FOR NOT INTR ENTER 



/TO COUNT REWRITE PASSES 



.EJECT 



1AGRFX 



PACE 31 







/HFAO 


S! A T i J S = [ 


; F T f S T FOR 


EPF STATUSrl 




*612 


406*12 


PDF OF 


VCT 










0*613 


777775 




I. A W 


-s 








■•1*614 


047117 




HAT 


RO r RPK 








0*615 


2 7 4 4 4 




I AT 


M T s T A T 








0*616 


5101*36 




ANP 


( 1 '000 








06617 


741200 




SNA 








/EPF=1 


0*620 


606640 




JMP 


RiJFOT 


/NO 


TEST 


EPT 


06621 


2271 45 




LAO* k(~CP0S 






/RFCORO POSITION 


06622 


3464 30 




TAD 


RLXSRO 






/+ BLOCKS REAU 


06623 


567150 




SAne FILFTH 






/SHOULD TA D E BF AT EOF 


06624 


741P.0R 




SKP 








/YES WOF OK 


06625 


60 6 4 31 




JM» 


PO r NTX 






/EOF NOT EXPFCTED 


06626 


206430 




LAG 


RLKSRD 








06627 


740200 




S2« 








/RFAO ANY RECORDS 


06630 


606220 




JMP 


PNSALL 






/YFS VERIFY THFM 


06631 


1671 45 




n^M< 


> RFCPOS 






/AT A RECORD 


06632 


4671 44 




ts?« 


' flLPOS 






/NEW FJLF POSITION 


06633 


147332 




oz w 


MTACTV 






/TAPF TEST INACTIVE 


06634 


227146 




I. AC« 


< FILWRT 








06635 


5671 44 




SAP' 


t FILPOS 






/AT LAST FILE 


06636 


16 714 3 




OiMt 


i DRACTV 






/DRIVE INACTIVE 


06637 


60733"< 


/WASNT 


JMP 
EOF TR-I 


MTACTV+1 
' EOT 






/DISMISS EOF 


06640 


207444 


RDFOT 


LAC 


MTSTAT 








06641 


510042 




AND 


(373600 






/EOT ONLY 


06642 


741200 




SNA 








/ALL OTHRS 


06643 


626612 




JMP* 


> RHEOF 






/YES NO FRROR 


06644 


107617 




JMS 


TBAOTP 








06645 


10733? 




JMS 


MTACTV 






/WAIT TEST RE ENTER 


06646 


2201 26 




I. AC« 


■ TTYFLG 








06647 


740200 




SHA 










06650 


625000 




JMPe 


• MTEXER 








06651 


207761 




LAC 


(ERRREW 








06652 


067143 




OAC« 


■ DRACTV 








06653 


107 4 00 




JMS 


TYPDRV 






/TYPF PRV CO MANP 


06654 


207446 




I AC 


FWORDR 


/GFT 


LAST 


COM 


06655 


510003 




ANP 


(3''00 /MASK 


FUNC 






06656 


250001 




XOR 


(2 '00 /AC = 


if Rn 






06657 


740200 




SZA 




/NO 


SKIP 


IS RDC 


06660 


210043 




LAC 


( 1 


/ROC 


BY PASS COMPARE 


0*661 


346*65 




TAP 


RQRECV 


/♦1 


RD RFOVR APR 


0*662 


04733? 




nAF 


MTACTV 








0*663 


1601 26 




n£M» 


TTYFLG 






/CLRTT BUSY 


0*664 


6201 30 




JMP« 


TTYOIS 









.EJECT 



1 a';rfx p a r, f 


3 2 


</tf 665 


6 '■ 6 6 


A t 6 6 6 


10 7 6 51 


0>-667 


21 0!'3 C ' 


06670 


4 6 ft 7 2 


0^671 


10 752* 


' 6 7 2 


01 6"0" 


rtf 673 


206672 


0> 674 


3671 47 


0^675 


046672 


06676 


4 6 714 5 


06677 


206430 


06700 


741200 


06701 


606705 


06702 


3 500 4 4 


06703 


046430 


06704 


606671 


06705 


447117 


06706 


741000 


06707 


606302 


06710 


750000 


6 711 


107166 


06712 


007400 


0671 3 


000001 


06714 


013777 


06715 


107617 


06716 


777777 


06717 


3671 45 


06720 


067145 


06721 


227147 


06722 


046727 


06723 


147116 


06724 


750000 


06725 


107272 


06726 


002000 


06727 


000000 


06730 


01 6000 


06731 


606640 


06732 


206612 


06733 


547041 


06734 


626612 


06735 


107332 


06736 


606666 



WQP E r. V 



RACKED 



JMS 


GE'IPAT 


1 AT 


( R'lRUFR 


DAT 


, + ■> 


JMS 


rO^ATA 




Pir>uFR 


LAP 


, -1 


T A n . 


» RFCLEN 


n A r 


. - ? 


!S?< 


» RFCPOS 


LAC 


RL'SRD 


SNA 




.IMP 


, +4 


T An 


(-1 


OAC 


RLKSRD 


JMP 


RQRECV+4 


IS? 


RDPRRK 


SKP 




JMP 


FRRRFW 


CIA 




JMS 


GOASSM 


7400 


1 
FAKECA 


JMS 


TBADTP 


LAW 


-1 


TAO* RFCPOS 


OAC» RFCPOS 


LAC« RFCLEN 


DAC 


. +5 


n?M 


ROXTMO 


CLA 




JMS 


GONSTP 




2000 









RO«UFR 


JMP 


ROFOT 


LAC 


RDEOF 


SAn 


RKROVR 


JMP* 


> ROEOF 


JMS 


MTACTV 


JMP 


RORECV*! 



/COMPARE 1 RFAD 

/CHAMGF COMPARF IN CASF MORE 

/+! POSITION 

/VFRIFIEn ALL PEAO 
/YFS BACK IIP RFAD 

/-l RLOCK COMPARED 
/DO NExT 



/BACKSPACE 1 RECORD 



/RFAO NONSTOP 



/EF=1 TRY AGAIN 



/FORCED NOT ERROR 

/YFS 

/CLR FLGS 

/COMPARE 00 AGN 



.EJECT 



■•! A G R r X 
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06737 


107003 


06740 


4 6 7 4 5 


0^741 


14 6 4 30 


06742 


20711^ 


06743 


1.071 66 


06744 


0034001 


06745 


000^00 


06746 


014000 


06747 


10661? 


06750 


227150 


06751 


567145 


06752 


606263 


06753 


467145 


06754 


14733? 


06755 


607333 



06756 


10 7 03 


06757 


046765 


06760 


046777 


06761 


146430 


06762 


207115 


06763 


107166 


06764 


003400 


06765 


000000 


06766 


014000 


06767 


10661? 


06770 


277145 


06771 


567150 


06772 


606263 


06773 


467145 


06774 


207115 


06775 


10727? 


06776 


003400 


06777 


000000 


07000 


014000 


07001 


106612 


07002 


606770 



/RFaO COMPaRF OATa start 

/JUST GOES 1 HFClKn THFN 

PQfSTp jhS RjjCpAT 

OAC PDFwni 
rtif. R L * S R U 
I AT WRTXTN 
JMS GOASSM 
3 4 <>■ 

PDCw^l 

WRRUFP 
JMS RurOF 
LAC» FILFT M 
SAO* RFCPOS 
JMP RDFOFX 
IS?« RFCPOS 
02m MTACTV 
JMP MT,\CTV + i 

/ 

/RFAD COMPaRF nATA NONSTO 

/GOES UNTIL FIRST END OF 

/ 

RQCNST JMS RDCPAT 
DAT R0CWD2 
DAC R0Cwr)3 
D2M RLKSRD 
LAC WRTXTN 
JMS GOASSM 
3400 

RDCW02 

WRBUFR 
JMS RDFOF 
LAC» RFCPOS 
SAD» FfLETH 
JMP RDFOFX 
IS?* RFCPOS 
LAC WRTXTN 
JMS GC'STP 
3400 

RDCW03 

WRBUFR 
JMS RDFOF 
JMP R00W02+3 



STOP ROUT INF 

B«C< TO STRAIGHT READ 

/GFNFRATF CORRECT PATTFRN 

/STORE WC 

/NO CLOCKS RFAO 

/START TAPF 

/RFAn COMPARF 

/WC 

/CA AFTER -1 

/ERR RFT SFE IF EOF 

/GET FILE LENGTH 

/AT LAST RECORD ALROY 

/SMD HAVF GOT FOF 

/♦I RECORD POSITION 

/CLR TApF TEST ACTV 

/DISMISS TAPE FLAG 

P ROUTINE 
FILE 

/SET UP READ COMPARE PAT 
/STORE WC START 
/WC FOR NONSTOP 
/NO BLOCKS RFAD 

/START TAPF 

/READ COMPARE 

/WC 

/CA START AFTER-i 

/EF=1 TEST END OF FILE 

/TAPF AT LAST RECORD 
/SHQ HAVF END OF TILE 
/+! REC POSITION 

/GO AGAIN 

/RFAD COMPARE 

/WC 

/CA 

/ERR FLAG TRY FOF 

/CHECK MTF NO FF OK 



/ 



•EJECT 



-< a r - r r x 



PACE 14 



07003 


607' > 0~ , 


07004 


107*51 


07005 


22715? 


07006 


510C 4^ 


07007 


?47765 


07010 


740200 


07011 


607027 


07012 


777777 


07013 


3671 4 7 


07014 


740001 


07015 


040010 


07016 


210046 


07017 


3471 15 


07020 


040011 


07021 


04001? 


07022 


220011 


07023 


510012 


07024 


060012 


07025 


440010 


07026 


607022 


07027 


227147 


07030 


627003 



/SFT UP READ COMP A RE PaTT£RI\ im WRITE RUFFER 
PQCPAT 



RDCPNO 



.IMP 


, 


JH^ 


CL'-PAT 


LAC. 


r PA ROE' 1 ! 


A NO 


(2»300 


YOB 


(3 i0 


S2A 




JMP 


RQf'PND 


I AW 


-1 


TAD. 


> RFCIEM 


CMA 




DAT 


10 


I AC 


( WRBUFR-1 


TAP 


WRTXTN 


DAT 


1 1 


OAC 


1 2 


LAC« 


■ 11 


AND 


(177777 


OAC< 


' 1? 


IS? 


10 


JMP 


. -4 


LAC« 


. RFCLEN 


JMP« 


, RnCPAT 


.EJECT 



/generate orig pat 
/get parity oe'"' (op 0(j m p 
/hask core dump amn hen 
/complfhfnt density 

/9 TRk NOT CORFQUMP IS SKP 
/SOMFTHING ELSF 

/? COMP record lenth 

/TO COUNT WORDS 



/TO GET 
/TO RESTORF 
/GET WORD 

/clr two parity bits 
/back to buffer 

/OONF ALL 

/NO GET NEXT 

/GFt RfCORn LENGTH 

/EXIT 



■•acrfx 



PACF 



*5 



07 31 
7 3 2 
070.33 
07034 
07035 
7036 
07037 
07040 
07041 
07042 



07 43 
07044 
07045 
07046 
07047 
07050 
07051 
07052 
07053 
07054 
07055 
07056 
07057 
07060 
07061 
07062 
07063 
07064 
07665 
07066 
07067 
07070 
07071 
07072 



2271 45 

7412?)!' 
6061 54 
207041 
04661? 
777774 
04 71 17 
606711 

007^42 
60 613 4 



2?71 47 
047051 
146430 
2071 16 
107166 
002400 
000000 
016000 
106612 
2271551 
567145 
606263 
750000 
10727? 
007000 
000001 
013777 
740000 
10733? 
107651 
107525 
016000 
14733? 
625000 



/BACKSPACE U't'! ; -£A0 

PKRf AO I AT* RFC (J US 

SNA 





JMP PfjMSTp + l 




I AC l<K c OVR 




'TAP PDFQP 




LAW - 4 




PAP POFRwK 




JMP PAPKPU 


U K R V R 


. +1. 




.IMP ROWRn + 3 


/ 




/READ 


THFN BACKSPACE 


READRK 


LAC RFCl EN 




PAC ,+5 




D^M PLKSPO 




LAC POXTMO 




JMS GOASSM 




2400 




PORljFR 




JMS ROFOF 




L AC* FILFTH 




SAD* RFCPOS 




JMP RQFOFx 




CLA 




JMS GONSTP 




7000 

1 

FAKECA 






NOP 




JMS MTACTV 




JMS CENPAT 




JMS COnATA 




RDRUFR 




nZM MTACTV 




JMP» MTAREX 



NONSTOP 

/GFT RFCORO POSITION 

/AT A RECO°D 

/YFS FORGET RACK RFAP 

/TO GET RACK 
/AFTER REAP 

/IN CaSF ERR OR TRY AG 3 
/START OPERATION 



NONSTOP 

/GFT RFcORn LENGTH 

/for goassfm 
/clr blocks read 

/start tapf 
/reao command 

/WC 

/CA AFTER-1 

/EF = 1 S£F IF FOF 
/GFT FILF LENGTH 
/TAPF AT LAST RECORD 
/YES SHD HAVF FOF 

/CHNG TO BACKSPACE 
/l RECORD 



.EJECT 



"AGRFX 
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0707-3 
07074 
07075 
.47076 
07077 
07100 
07101 
07102 
07103 
710 4 
07105 
07106 
07107 
07110 
07111 
07H2 
07113 

07114 
07115 
07116 
07117 



071?0 

07121 

07122 

07123 

07124 

07125 

07126 

07127 

07130 

07131 

07132 

07133 

07134 

07135 

07136 

07137 

07140 

07141 

07142 

07143 

07144 

07145 

07146 

07147 

07150 

07151 

07152 

07153 



4 7 v. 7 3 
2001 11 
51 0047 
741200 
627<*73 
120107 
510047 
741200 
627073 
0471 14 
200111 
74000] 
347114 
740100 
6071055 
20711" 
627073 

000000 
000000 
000000 
000000 



407120 
205706 
347155 
047143 
227143 
047143 
777766 
047141 
210050 
047142 
207143 
067142 
350033 
447142 
447141 
607133 
627120 
000000 
000000 
000000 
000000 
000000 
000000 
000 00 
000000 
000000 
00 00 00 
000000 



/ S F L F C T 

/ 

TTXT^O 



AN EXTENDED MEMORY HANK IF UNE EXISTS 



/ 

SVXTNO 

WRTXTN 

ROxTND 

POERRK 

/ 

/TC59 Ra 

/SFT UP 

DRVSFT 



DRVDEX 

DRACTV 
FILPOS 
REOPOS 
FILWRT 
RECLFN 
F ILETH 
FRSF IL 
PAPDFN 
FILE'K 



XCT 

I AC 

AND 

SNA 

J MP 

JMS 

A 

S 

J 

n 

L 

c 

T 

s 
J 
I. 
J 








NDOM 
POINT 
XCT 
LAC 
TAD 
DAC 
LAC 
DAC 
LAW 
DAC 
LAC 
DAC 
LAC 
DAC 
TAP 
IS? 
IS? 
JMP 
JMP 















UPCoRE /qPT UPPER CORF PoUnDARY 
(600 

/HAVE XTNOFU MFM 

* GTXTNO /NO EXIT AC=0 

* R ANNUM /GFT R ANNUM 
NO (6 000 /MASK X T N RITS 
NA /SFLFCT XTND BANK 
MPo GTXTNO /NO FXIT AC = 
AC SVXTNO /SAVF RANK BITS 

UPCORE /GET UPPFR LIMIT 

/MAKF - 
SVXTNO / + SFLFCTED 

/AC - IS BANK EXISTS 



GTXTND+5 
SVXTND 



MP* GTXTNO 



EXERCISER TAPE 
ERS FOR DRIVE C 

CORIVE 
ORVAOR 
DRACTV 

* DRACTV 
DRACTV 
-TABLEK 
DRVDFX 
(DRACTV 
DRVOEX+1 
OR«CTV 

* DRVOEX+1 
(1 

DRVDEX+1 
ORVDFX 
. -4 

» DPVSET 



/SAVF XTND SELECTION 
/WRITE BANK SELECTFD 
/READ RANK SFLFCTED 



URRENTlY SELECTED 

/DRIVE NUMBER 
/♦ TABLE ADDRES 

/GET DRIVE ADRS 

/TO COUNT TO END OF TARLF 



/TO RTORF EACH +1 
/GET ADORS AG 
/STORE NFX 



/STORED ALL 

/NO 

/LAST ADRS POINTS TO PATTERN 



/TO GET DRIVE ACTIVE INDICATOR 

/TO GET FILE POSITION 

/TO GET RECORD POSITION WITHIN FILE 

/TO GET HOW MANY FILES WRITTEN 

/CURRENT RECORD LENGTH 

/CURRENT FILF LENGTH 

/FIRST FILF ON TAPE WITH THIS PATTERN 

/PARITY AND DENSITY SEIECTION 



■■unRFX page 


3 7 






07154 


00000 ra 


r»ATT«L 









/TABLE 


OF ^TARTI 


07155 


00 715 6 


nRVAHR 


. +1 


07156 


013 4 0a 




n R C< T A H 


.37157 


013 4 21 




n R 1 T A s 


07160 


013 4 4 2 




DR2TAB 


07161 


013463 




OR3TA8 


07162 


013^04 




nR4TAB 


07163 


013">25 




DR C >TA6 


07164 


01 3 "546 




nft6TAB 


07165 


013567 




0R7TA8 



/TO r.i'J 1 PATTERN WORD'' 
ADDRESES OF DRIVE TABLES 



.EJECT 



■1AC.RFX PAGF 


3 8 


/OF F !ME 


' PRIVF TAULF addresses 






01 340'^ 


"R0TAB= 


OPTABI 






013421 


HR1 TA8= 


I ! P 3 T A P + T A P L E K + 7 






01344? 


PR?T«B= 


D s lTAP+TA«LFK+7 






01346^ 


PR?7 A8= 


[Ji 3 ?TAR + TA«LFK + 7 






01350a 


PR4TAR= 


:UP3TAP+TAPLFK+7 






01 35?^ 


nR"5TA8 = 


:0P4TAP+TAPLFK+7 






01 3546 


DR6TAB= 


■UP5TAP+TAPUEK+7 






013567 


r>R7TAB = 


0P6TAP+TAPLFK+7 








/ASSFMRLF tape COMMAND and GO 




07166 


407166 


GOASSM 


XCT , 




07167 


0471 14 




PAP SWTNO 


/SAVE XTND BITS 


07170 


227166 




LAC« GPASSM 


/GFT FUNCTION 


07171 


04744^ 




OAC FWOROM 


/SAVF IT 


07172 


447166 




IS? GOASSM 


/+1 FOR WC 


07173 


777777 




LAW -1 




07174 


367166 




TAD* GOASSM 


/2 COMP 


07175 


740001 




CMA 


/WORO COUNT 


07176 


04003? 




PAC WCLOC 




07177 


447166 




IS? GOASSM 


/+1 FOP AQORS 


07200 


777777 




LAW -1 




07201 


367166 




TAD* GOASS M 


/AOORS-1 


07202 


347114 




TAD SVXTND 


/* XTND "EM 


07203 


040033 




OAC CALOC 


/TO PA 


07204 


447166 




IS? GOASSM 


/+1 FOR EXIT 


07205 


707321 




MTCR 


/WAIT CONTROL READY 


07206 


607705 




JMP .-1 




07207 


205710 




LAC FORIVE 




07210 


707326 




MTLC 




07211 


707301 




MTTR 


/WAIT DRIVE READY 


0?212 


6072H 




JMP ,-1 




07213 


347445 




TAD FWOROM 


/DRV + COMHANO 


07214 


367152 




TAD* PARDEN 


/<- PARITY AND DENSITY 


07215 


707326 




MTLC 


/LOAD COMMAND 


07216 


047447 




DAP. FWORDA 




07217 


70731? 




MTHC 


/READ IT BACK 


07220 


047446 




nAC FWOROR 




07221 


547447 




SAD FWPROA 


/LOAPEP PROPER 


07222 


607754 




JMP COMQOK 


/YES GD 


07223 


207447 




LAC FWORPA 




07224 


047444 




DAC MTSTAT 




07225 


207230 




I AC LOAQWR 




07226 


04733? 




DAC MTACTV 


/IN CASE PRTR ACTV 


07227 


741000 




SKP 





.EJECT 



^AGRFX PACE 


39 






07230 


007?31 


l.OADWR 


. +1 


07231 


220126 




l.Ar» TTYFLG 


07232 


740200 




S2' 


ii 7 2 3 3 


6 2 5 « 




JMP« MT£XE W 


07234 


107-10? 




JMS TYPQPV 


07235 


207245 




LAT MTI CTX 


07236 


120100 




JMS* TYPTE* 


07237 


6201 30 




JMP» TTYOIS 


07240 


1601 26 




n^M, TTYFLG 


07241 


207751 




LAC (RFWALL 


07242 


4 7 332 




DAC MTACTV 


07243 


105712 




JMS RSFORV 


07244 


6201 30 




JMP» TTYDIS 


07245 


007246 


MTLCTX 


.♦1 


07246 


064251 




.ASCII < 


07247 


552230 






07250 


415010 






07251 


640622 






07252 


462130 






07253 


477400 







/PRTR FLAG 
/ACTI VF 

/YFS TPY LATFR 
/TYPF FRPOR 

/TYPF M£SSG 
/DISMISS LST FLG 
/CLR TFLETYPF MUSY 

/REWIND ALL ORTVFS 
/SYSTF.M CONTROL FAILEO 



<15><12>'MTLC FAILFO'<l77> 



.EJECT 



UGRFX 



PACE 40 



07254 


207?6? 


07255 


047764 


07266 


777777 


07257 


04773? 


07260 


707^04 


137261 


6?500i* 


07262 


007263 


07263 


70735? 


07264 


047444 


07265 


741?0ca 


07266 


6271 66 


07267 


740100 


07270 


447166 


07271 


627166 


07272 


40727? 


07273 


0471 14 


07274 


22727? 


07275 


047445 


07276 


44727? 


07277 


777777 


07300 


367272 


07301 


740001 


07302 


040032 


07303 


44727? 


07304 


777777 


07305 


36727? 


07306 


447272 


07307 


347114 


07310 


040033 


07311 


207445 


07312 


707324 


07313 


70731? 


07314 


047446 


07315 


20732? 


07316 


047364 


07317 


70732? 


07320 


707304 


07321 


607365 


07322 


307323 


07323 


70735? 


07324 


047444 


07325 


741200 


07326 


62727? 


07327 


740100 


07330 


447?7? 


07J31 


62727? 



/COMMAND GOT TH[;»E AMD BACK OK 
r 0M[)nK i AC ST°RFT 

rue mtapro 

I. A', -1 

run m t a c t v 

"TOO 

JMP* MTFXER 
STPRET .+1 

MTRS 

DAT MT^TAT 

SNA 

JMP* GOASSM 

SMA 

IS? GOASSM 

JMP* GOASSM 
/MAKE TAPE go nonstop 
GONSTP XCT , 

DAC SVXTND 

LAC* GONST p 

OAC EWOROM 

IS? GONSTP 

LAW -J 

TAO* GONSTP 

CMA 

OAC WCLOC 

is? romstp 

LAW -1 

TAO* GONSTP 

IS? GONSTP 

TAD SWTNO 

DAC CALOC 

LAC FWOROM 

LCM 

MTPC 

DAC EWOROR 

LAC NSRETU 

DAC MTAPRO 

MTAF 

MTGO 

JHP MTAPRO+1 
/RETURN FROM NONSTOP MAGTAPE 
NSRETU .+1 

MTRS 

OAC MTSTAT 

SNA 

JHP* GONSTP 

SMA 

IS? GONSTP 
JMP* GONSTP 
/ 

.EJECT 



/STOPPED ]NT RPTtIRN 

/SET TAPE active 

/START OPERATION 
/EXIT 

/RO STATUS 
/SAVE IT 
/FLAGS SET 
/NO ERROR EXIT 
/ERR FLAG=1 
/NO SKIP EXIT 



/XTND BITS 
/GFT COMMAND 
/SAVF IT 



/GET WO-i 
/EOR 2 COMP 



/CA -1 

/FOR CURRENT AODRS 
/+MEM RNK 



/CHANGE COMMAND 
/READ IT SACK 
/SAVF IT 

/NONSTOP INT RETURN 
/CLR FLAGS 
/GO 

/RESTORE AND ENARLF 
ELG 



/SAVE TAPE STATUS 



■UHRFX PAGE 


41 






07332 


000 Wi 


M T A C T V 





07333 


7073?? 




MTAF 


07334 


107364 




JMP MTAPRO 


07335 


70735? 




MTRS 






/INTERS 


! PT HTEJVFO NOT 


07336 


4 7 3 4? 




rur xti'afl 


07337 


777777 




I A W - 1 


07340 


4 7 3 4 3 




OAC [ 1 N F x P C 


07341 


607" ! 33 




JMP HTACTV+1 


07342 


00000P 


XTPAFL 





07343 


00000P 


LJNfXPC 





07344 


00734^ 


MjAINT 


. +1 


07345 


707341 




MTSF 


07346 


62014? 




JMP* UNKNWN 


07347 


04736? 




OAC MTASAC 


07350 


200000 




LAC 


07351 


047376 




OAC INTSAv 


07352 


607356 




JMP .+4 


07353 


407353 


MTAPI 


XCT , 


07354 


04736? 




DAC MTASAC 


07355 


750000 




CLA 


07356 


350044 




TAD (-1 


07357 


047363 




OAC MTASPC 


07360 


047377 




OAC IM1SAV 


07361 


627364 




JMP* MTAPRO 


07362 


000000 


MTASAC 





07363 


407363 


MT*SPC 


XCT . 


07364 


407364 


MTAPRO 


XCT . 


07365 


207362 




LAC MTASAC 


07366 


447363 




IS? MTASPC 


07367 


60737? 




JMP .+3 


07370 


703344 




DBR 


07371 


627353 




JMP* MTAPI 


07372 


700042 




ION 


07373 


703344 




DBR 


07374 


627363 




JMP* MTASPC 


07375 


000000 


HNGCTR 





07376 


000000 


INTSAV 





07377 


000000 


IM1SAV 
/ 






E.XPF C TING ONE 



/SAVF STATUS 

/SFT UNxPECrn INT 
/DISMISS 



/TAPE FLAG=1 
/NO UNKNOWN INT 
/SAVF THE AC 

/r,C"T aodrs for -1 



/ENTERED HERE RY API 
/SAVE AC 
/SO IT =-1 
/(0>-l OR AC =-1 
/SAVF PC 

/PROCESS INT 

/SAVE ACCUMULATOR 

/SAVE PC=777777 IS API 

/PROCESS ADDRESS 

/SET INT AC 

/API OR PIC 

/PIC 

/API DO NOT ION 

/DISSMISS API 



/OISSMISS PIC 



.EJECT 



...J 



' d c r r x 



p a r, f: 4 2 



/ IN 1 T I L 1 J E E R 
/ T v p f R i V F r 







/ W 4 I T Fu» T T v F 1 (, -V n 


07400 


4 7 4 9 


r y p ° v x c t , 


7 4 1 


777777 


1 t* : -1 


07402 


04733? 


A f ' M T '• C T V 


07403 


0601 2<- 


n A r » TTYFLG 


074^4 


2074V< 


LAG DRVTFX 


07405 


1201 0P 


.IMS* TYPTEX 


07406 


625P0? 


JMF» MT£X£R 


07407 


205706 


LAG GO"IVE 


07410 


1201 03 


JMS* T V 0CT1 


07411 


620130 


JMP* TTYniS 


07412 


20745^ 


I. AG GSTEXT 


07413 


1201 00 


JMS* TYPTEX 


07414 


620130 


JMP* TTYPIS 


07415 


207446 


LAG Fj^nROR 


07416 


120101 


JMS* TYPCON 


07417 


620130 


JMP« TTYDIS 


07420 


207474 


LAG SPA2TEV 


07421 


120100 


JMS* TYPTEX 


07422 


6201 30 


JMP* TTYDIS 


07423 


207444 


LAG MTSTAT 


07424 


120101 


JMS* TYPCON 


07425 


620130 


JMP* TTYDIS 


07426 


207474 


LAC SPA2TEX 


07427 


120100 


JMS* TYPTEX 


07430 


620130 


JMP* TTYPIS 


07431 


227144 


LAG* FtLPOS 


07432 


120101 


JMS* TYPcON 


07433 


620130 


JMP* TTYniS 


07434 


207474 


LAC SPA2TEX 


07435 


120100 


JMS» TYPTEX 


07436 


620130 


JMP* TTYDIS 


07437 


227145 


LAC* RFCPOS 


07440 


346430 


TAD RLKSRO 


07441 


120101 


JMS* TYPCON 


07442 


620130 


JMP* TTYOIS 


07443 


627400 


JMP* TYPDRV 



R(1R TYPFOUTS 

M M i N D A N n STATUS 

outside this roi 



TIME 



/Sf"T T^ST 

/AND TTY ACTIVF 

/TYPF DR1VF 



/and number 

/COMR STATUS FILE RECORD 
/TYPF COMAND MTRC 



/TYPF STATUS 



/OO PEST OF TYPEOUT 



•EJECT 



* a s R r x 
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117444 
07445 
07446 
7 4 4 7 
7 4 5 
^745i 
07452 
07453 
074 c 4 
07455 
07456 
07457 
07460 
07461 
07462 
07463 
07464 
07465 
07466 
07467 
07470 
07471 
07472 
07473 
07474 
07475 
07476 
07477 
07500 
07501 
07502 
07503 
07504 
07505 
07506 
07507 
07510 
07511 
07512 
07513 
07514 
07515 
07516 
07517 
07520 
07521 
07522 
07523 
07524 



000000 
000000 
PI 
00000? 

007451 

064241 

242244 

446550 

520^76 

007456 

064244 

041636 

466104 

020100 

516510 

152252 

515004 

043222 

462124 

020244 

426071 

751210 

064257 

700000 

007475 

201017 

700000 

007500 

064250 

440650 

405010 

551244 

476441 

505000 

202110 

152202 

201004 

020202 

422452 

306424 

774000 

000000 

007517 

064250 

247650 

202471 

047652 

462107 

530776 



MTST4T 


(7 


FWORHM 





FWOROR 





FWORHA 





DRVTFX 


. +1 




.ASCI I 



CSTEXT 



. +1 
.ASCI I 



<15><12><12>'QRIVE *<177> 



<15><12>' COWQ STATUS FILF RECORD i < 15><12>< 17Z> 



SPA2TEX .+1 

.ASCII 



'<177> 



DTATEX .+1 

.ASCII <15><12>'DATA FRROP ' <15><12> 



.ASCII • DATA AORS'<15><12><177> 



Rqttex 



, +1 

,ASCI I 



<15><1?>'S0T SHOULD=1 '<177> 



.EJECT 



'■ A r, R F X 
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/COMPARE 04 Tt SlKiRPUT I Mt 
/J*S +1=^T*RT OF INPUT DAT* 



07525 


407^2^ 


codaTa 


XCT , 


07576 


777777 




LAw - 1 


075?7 


367525 




TAHe C n OATA 


07530 


3471 16 




TAP RUXTND 


07531 


447525 




IS? CO^ATA 


07532 


4 00 10 




HAT 10 


07533 


777777 




I. AW -1 


07534 


3671 47 




TAD* Rf.CLEN 


07535 


7 4 00 01 




CMA 


07536 


040^u 




DAT 11 


07537 


210046 




LAC (WR8UFR-3 


07540 


3471 15 




TAP WRTXTN 


07541 


04001? 




OAC 1 2 


07542 


777773 




LAW -5 


07543 


047736 




DAP ERINOX 


07544 


210051 




LAC (ERINDX 


07545 


040013 




PAC 13 


07546 


22001P 


colopp 


LAC* lii 


07547 


56001? 




SAP' 1? 


07550 


741000 




SKP 


07551 


107700 




JMS CoFRRO 


07552 


440011 




IS? U 


07553 


607546 




JrtP CO! OOP 


07554 


77777? 




LAW -5 


07555 


547736 




SAP FRINPX 


07556 


627525 


COFxlT 


JMPo CODATA 


07557 


207562 




LAC COERRT 


07560 


04733? 




DAC MTACTV 


07561 


741000 




SKP 



/AOr-1 



/FOR INDIRECTS 
/RFCPRP LENGTH 
/-1 

/HAKE ? COMP 



/TO GET WORDS WRITTEN 

/TO COUNT 4 ERROR SAVEP 

/TO STOR ERROR ADRSES 

/GET DATA READ 

/=OATA WRITTFN 

/OK 

/SAVE ERROR INFO 

/DONE TO ENO OF RECORD 

/NO 

/ANY ERRORS 

/NO JUST EXIT 

/[N CASE TTY BUSY 



.EJECT 



MAORFX 



X PAGE 


45 


075(S? 


007563 


07563 


220126 


07564 


740205" 


07565 


625000 


07566 


107400 


07567 


207477 


07570 


120103 


07571 


620130 


07572 


777773 


07573 


047735 


07574 


210052 


07575 


047715 


07576 


210053 


07577 


047723 


07600 


107714 


07601 


107714 


07602 


206015 


07603 


120100 


07604 


620130 


07605 


447735 


07606 


207735 


07607 


547736 


07610 


741000 


07611 


607600 


07612 


160126 


07613 


207616 


07614 


04733? 


07615 


620130 


07616 


007556 



COERPT .+1 

LAC*. TTYFLG 

S2A 

JMTJB MT£XEP 

JMS TY"ORV 

I.AC OTATFX 

JMS» TYpTEX 

JMP» TTYOIS 

LAW -5 

OAC FRTYDX 

LAC (LAC* FRINDX+l) 

OAC GTCDAT 

LAC (l»C ERINtlX + 1 ) 

OAC GTAOnR 
COTYLP JMS TYDAOR 



JMS T 
LAC C 
JMS* 
JMPo 
IS? F 
LAC E 
SAO F 
SKP 
JMP C 
D2H* 
LAC . 
OAC M 
JMP» 
COEX! 



YDADR 

RLFTX 

TyPTEX 

TTYHIS 

RTYDX 

RTYOX 

RINDX 

OTYLP 

TTYFLG 

+ 3 

TACTV 

TTYDIS 

T 



/TO GET BACK AT REENTER 

/TTY BUSY 

/YFS WAIT FOR MOT HUSY 

/TYpF nRV STATUS ETC 

/DATA ADR TEST 



/TO GET DATA 

/TO GET ADDRESS 

/TYPE DATA ANO ADDPS 

/WRITTFN 

/DATA AND AORS READ 

/LNE FFET T W x PAIRS 

/+1 FRRORS TYPFD 

/DONF ALL ACCUMULATED 

/YFS 

/TYPE NEXT ERROR 

/CLR TTY ACTIVE 

/TO EXIT CODATA AT RE-ENTER 
/DISMISS LAST TTY FLAG 



■EJECT 



UHRFX 



PACE 46 



/SFE IF i RDliD STUUS WAS BAD TAPE 



0761 7 


4517617 


TBMJTP 


XCT , 


07670 


207444 




t. AT MTSTAT 


076?1 


510P04 




A N F ( 7 < 


076?? 


740?0f 




S^A 


07673 


607*26 




JMP , + < 


07674 


207444 




LAC MTSTAT 


07675 


627617 




JMPa THAnTP 


076?6 


10733? 




JMS MT«CTV 


07677 


22012* 




LAC* TTYFLG 


07630 


740700 




S2A 


07631 


625000 




JMP* MTAREX 


07632 


107400 




JMS TYPDRV 


07633 


207642 




LAC BAHTFX 


07634 


120100 




JMS» TYPTEX 


07635 


6701 30 




JMP* TTYDIS 


07636 


1601 26 




nzM« ttyflc 


07637 


207761 




LAC (ERRREW 


07640 


04733? 




flAC MTACTV 


07641 


620130 




JMP» TTYDIS 


07642 


007643 


RAOTFX 


. +1 


07643 


064250 




.ASCII <15><12> 


07644 


240610 






07645 


202510 






07646 


150?1? 






07647 


774000 






07650 


000000 







/HAS^ RAO 



/IT IS 



/GFT STATUS 
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06777 

06612 
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